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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATICN. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
ate OF ITS SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY 
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COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 
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2.1 


2.2 


2.3 


ABSTRACT 


THE RMO5/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 
TESTS WHICH VERIFY THAT THE RMO5/3/2 DUAL PORT LOGIC 

1S FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

1S NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE PDP=-11, RH11 OR RH70. 


THIS PROGRAM IS THE SECOND PART OF THE RMO5/3/2 DUAL PORT 
ful ten LOGIC TEST, AND IS USED TO TEST THE '’PORT SELECT" 


REQUIREMENTS 


EQUIPMENT 


PDP=11 PROCESSOR 

16K OF MEMORY 

KWil-L OR KW11-P CLOCK 

TERMINAL 

RH11 OR RH70 

1 = DISK DRIVE (RMO5, RMO3 OR RMO2) 
RM DUAL PORT TEST CABLE 


PREREQUISITE PROGRAMS 
A. RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2 
B. RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM EACH 
CONTROLLER (PORT). 


C. RMO5/3/2 DUAL PORT LOGIC TEST, PART 1 
OTHER PROGRAMS 


DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED 
BY THE RM05/3/2 PERFORMANCE EXERCISER PROGRAM, 


LOADING PROCEDURES 


THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED'XXDP" LOADER. THE PROGRAM MAY NOT 
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NCLUDED IN AN 'XXDP* CHAIN. 


TING PROCEDURES 


TING ADDRESSES 


THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
200(8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
- aettES (OR RESELECT) THE ADDRESS OF THE DRIVE TO 


THE RESTART ADDRESS IS LOCATION 204(8). 
WILL USE THE CURRENT DRIVE (DCL) ADDRESS 


THE PROGRAM CAN BE STARTED AT gant ng 210(8) TO ALLOW 
THE RH11 OR RH70 ADDRESS TO BE CHANGED 


US & VECTOR ADDRESS 


PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 
E ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM 


_ PROGRAM 


ANY OF THE STARTING LOCATIONS. 

RY 

TION CONTENTS FUNCTION 
177560 TTY KEYBOARD STATUS REG 
177562 TTY KEYBOARD BUFFER REG" 
177564 TTY PRINTER STATUS REG 
177566 TTY PRINTER BUFFER REG 
172540 KW1l1-P STATUS REG 
172542 KWll-L COUNTER BUFFER 
104 KW11-P VECTOR ADDRESS 
177546 KWIl-L STATUS REGISTER 
100 KW1l1l-L VECTOR ADDRESS 


ATOR ACTION 


CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 
& BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 
LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
THE MASSBUS USED FOR TESTING. 
SWITCH THE "PORT SELECT’ SWITCH ON THE DRIVE TO BE 
TESTED TO THE °A/B* POSITION. CYCLE THE DRIVE UP. 
LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 2%C‘8)) 
INTO THE SWITCH SeSiStEs (OR THE ‘SOFTWARE’ SWITCH REGISTER, 
aes SECTION 5.2.) 
RESS STAR. 
ENTER THE DRIVE NUMBER, 
ENTER THE NUMBER OF THE yes! TO BE RUN, (‘CARRIAGE RETURN’ 
OR *O* WILL RUN ALL TESTS.) 
THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 204. 
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5. OPERATING PROCEDURES 


5.1 OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


SW<15>=1...HALT ON ERROR 
SW<14>=1...LOOP ON TEST 

SW<13>=1... INHIBIT ERROR TYPEOUTS 
SW<11>=1... INHIBIT TEST ITERATIONS 
SW<10>=1...RING TTY BELL ON ERROR 
SW<09>= 1... LOOP ON ERROR 


5.2 "SOFTWARE’ SWITCH REGISTER 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E£. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
"SOFTWARE" SWITCH REGISTER 1S LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE’ Peete t ARE CONTROLLED THROUGH A KEYBOARD 
+ phan; WHICH 1S CALLED BY TYPING A "CONTROL G*. THE hae geet WILL 


1S AT A HIGHER PRIORITY PROCESSING AN RMO5/3/2 INTERRUPT. THE 
"SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT' AND 
"CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE*® SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
"UP* POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
ia AND THE PROCEDURES DESCRIBED ABOVE MUST 

LL ° 


5.3 TEST SELECTION 


ad ibaa TESTS ARE SELECTED IN RESPONSE TO THE ‘ENTER 
TEST NUMBER:* MESSAGE. ANY VALID TEST NUMBER CAN BE 
ENTERED. EACH ENTRY yy BE TERMINATED BY A CARRIAGE 
RETURN (CR). THE LOOP ON TEST SWITCH, SwW<14>, MUST BE SET 
TO ALL CONTINUOUS EXECUTION OF THE SELECTED TEST. 


10 ~~ ALL TESTS IN SEQUENCE, ENTER EITHER A ‘0Q' + ee 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 
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THE *RUBOUT KEY' (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY '\" FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 


nthe a CAN DELETE AN ENTIRE ENTRY BY TYPING A 


TEST CABLE CONNECTION 


TO TEST THE RMO5/3/2 DUAL PORT OPTION WITH THIS PROGRAM, 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

P/N 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED $90 
THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 


WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST, 
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
OF THE RMO5/3/2 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 


THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 
ADDRESS PLUG. 


THE PROGRAM WILL TYPEQUT THE APPARENT ADDRESSES OF BOTH 
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


ee T STIs eit iii tii c iti iti ite iit tii iti titi t iti iit 
* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN * 
* CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 
* POWERED DOWN. * 


(LAR ASALAAASASALARSALESLLLESESASESESE SESE SESE SE RE SESE RES ESES 


THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 
DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE DRIVE. 
IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON a ois 
CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO 


J3 0 
RMO5/3/2 BACK PANEL, THEN CONNECT THE TEST CABLE (PIN, 7010507- 02) 
FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B AT J8. 


WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 
BITS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION 


WHEN 'RMAS' (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 


a POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE. 
THE ATTENTION BIT THAT APPEARS FOR THE DRIVE 1S THE 
INCLUSIVE ‘OR’ OF THE PORT A & PORT B ATTENTION BITS. BECAUSE 
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 
"RMDS’ (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 
OF THE SELECTED PORT'S ATTENTION BIT. 


ERRORS 
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4 


7.2 


7.3 


7.4 


7.5 


WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 
CALLED AND IF Sw<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


A. AN ERROR MESSAGE 
B. A DATA HEADER LINE 
C. A DATA LINE CONTAINING: 


1. THE TEST NUMBER 

2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
CALL _ WAS MADE 

3. CONTENTS OF THE APPROPIATE REGISTERS 


~ MISCELLANEOUS 


RESTRICTIONS 


TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KW11-P 
OR A KW1li-L CLOCK. ADDITIONALLY, THE RMO5/3/2 UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 


LIMITATIONS 


THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
od ie NOT TEST THE DYNAMIC OPERATION OF THE DUAL 


EXECUTION TIME 


THE PROGRAM TAKES ABOUT 60 SECONDS PER PASS (DEPENDING ON 
OPERATOR INTERVENTION EFFICIENCY). 


REQUIRED TESTS 


IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
Ae ag CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 


A. TEST 2 AND TEST 3. THESE TESTS SET ‘VV-A* AND ‘vv-B' 
RESPECTIVLY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE 
BEFORE TESTS 4 - 10 ARE RUN. 


B. TEST 4 AND TEST 5. THESE TESTS DETERMINE AND STORE FOR 
LATER 4) THE TIMEOUT UNE~SHOT VALUE MEASURED THROUGH 
ins. ae eae ee TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE 


DISK SURFACE USAGE 


THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
og MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC TO BE 
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7.8 


8.1 


8.2 


TEST 1 


LOOP ON ERROR OPTION 


IF SW<09> 1S SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
BECAUSE THE PROGRAM MUST RESET THE RMO5/3/2 TO A KNOWN STATE 
BEFORE LOOPING ON THE ERROR, THE TEST FOR SwW<09> IS PERFORMED 
OAS BETECTER THE TEST = NOT AT THE POINT WHERE THE ERROR 


TEST DESCRIPTIONS 


METHOD USED TO VERIFY THAT DRIVE IS IN NEUTRAL 


THE PROGRAM DETERMINES THE THE DRIVE IS IN NEUTRAL BY CHECKING 

THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 

BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
C'ATA' & 'VV") AND ou & THAT CORRECT STATUS IS READ 

THROUGH BOTH PORTS. ( THE CORRECT STATUS IS ‘MOL’, 'PGM', 
"DPR', & 'DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 

RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE 1S IN NEUTRAL 

AND THAT ANY BIT DISCREPANCY + age PORTS INDICATES A 

FAILURE IN THE PATH FOR THAT BIT 


METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 


THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED By 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 

THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 

ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (J.€. 
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 


DRIVE ACCESS TEST 


VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 


A. 


SELECT wig VERIFY THAT THE DRIVE IS PRESENT, THAT THE 

DRIVE IS A DUAL PORT RMO5/3/2, THAT THE DRIVE 1S ONLINE (RMDS HAS 
.* "DPR', & "DRY' BITS SET), AND THE THE DRIVE SERIAL 

NUMBER READ THROUGH BOTH PORTS IS THE SAME. 


THE TEST IS REPFATED THROUGH BOTH PORTS. 


TEST 2 SET ‘vv" FOR PORT A 


SET VOLUME VALID 


SEQ 0008 


CZRMSAO RMO5/3/2 DU POR TST 2 


o 8 
MACRO V03.01 11-APR-80 14:40:19 PAGE 3-6 


A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 


B. is A_READIN PRESET COMMAND et a. PORT A. VERIFY 
THAT THE 'VV' BIT IS SET FOR PORT 


C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 


THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT 1S SET. 


TEST 3 SET ‘Vv" FOR PORT B 


SET VOLUME VALID 
A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
THAT THE ‘VV' BIT IS SET FOR PORT 8B. 
C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 


ie tie RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


TEST 4 MEASURE THE TIMEOUT ONE=SHOT THROUGH PORT A 


MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 


A. WRITE O'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 


B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


Cc. ag fe THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 


TEST 5 MEASURE THE TIMEOUT ONE~SHOT THROUGH PORT B 


MEASURE THE TIMEOUT ONE~SHOT VALUE .THROUGH PORT B 


A. WRITE O'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 


B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE=SHOT AND SAVE THE VALUE FOR LATER USE. 


stan fe THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 


SEQ 0009 
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6 TEST "CONTROLLER SELECT’ SWITCH, DRIVE CYCLED UP 


THE OPERATION OF THE ‘CONTROLLER SELECT’ SWITCH (DRIVE CYCLED uP). 


SWITCH TO CONTROLLER 'A* POSITION. VERIFY THAT THE DRIVE IS _IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 


SWITCH TO CONTROLLER ‘B* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 


RETURN THE ot naeacg SELECT’ SWITCH TO THE ‘A/B' POSITION. VERIFY 


THE DRIVE STA 


7 TEST ‘CONTROLLER SELECT’ SWITCH LOCKED ON PORT A 


THE OPERATION OF THE ‘CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN). 


CYCLE THE DRIVE DOWN. 


SWITCH TO CONTROLLER A POSITION. VERIFY THAT THE DRIVE IS _IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 


SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 


WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-A IS RESET, AND 
THAT ‘ATA@A IS SET. 


hoe Pi DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
"NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 

PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 

INTO RMDS THROUGH PORT B. 


ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A, 


TEST 10 JEST "CONTROLLER SELECT* SWITCH LOCKED ON PORT B 


TEST THE OPERATION OF THE ‘CONTROLLER SELECT SWITCH (DRIVE CYCLED DOWN). 


A. 


CYCLE THE DRIVE DOWN. 


SEQ 0010 
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SEQ 0011 
457 B. SWITCH TO CONTROLLER B POSITION. VERIFY THAT THE DRIVE IS IN 
458 NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
P44 PORTS, ARE CORRECT. 
rr C. SWITCH THE "CONTROLLER SELECT’ SWITCH TO B; CYCLE THE DRIVE UP. 
463 D. WHEN THE DRIVE at UP, VERIFY THAT ‘VV-B IS RESET, AND 
tee THAT ‘ATA=B IS SET 
466 E. ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
De 4 PORT B. 
469 F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
470 "NED' —s ATEMPTING TO ACCESS THE DRIVE THROUGH 
471 PORT A. ATTEMPT TO SET — REQUEST BY WRITING 0'S 
ref INTO RMDS THROUGH PORT A 
on G. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
res DRIVE REMAINS LOCKED ON PORT B. 
478 H, CYCLE THE DRIVE DOWN. CHANGE THE ‘CONTROLLER SELECT’ SWITCH TO 
rt A/B; CYCLE THE DRIVE UP. 
481 1. VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 
at BITS ARE SET, AND THAT BOTH ‘vv" BITS ARE RESET. 
484 
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:PROGRAM REVISION #001 


-TITLE CZRMSAO RMO5/3/2 DU POR TST 2 
s*COPYRIGHT (C) 1980 

:*DIGITAL EQUIPMENT CORP. 

s MAYNARD, MASS. 01754 


:*PROGRAM BY MIKE LEAVITT 


SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


s #PACKAGE (MAINDEC=11-DZQAC-C4), 1980. 
‘Sart. OPERATIONAL SWITCH SETTINGS 


:* 

ips SWITCH USE 

_§ #£#; jem i j§i=-— i (§ + éé= ae rR Ono aae 
je 1 HALT ON ERROR 

7° it LOOP ON TEST 

;* 13 INHIBIT ERROR TYPEOUTS 
s* 11 INHIBIT ITERATIONS 

:* 10 BELL ON ERROR 

:* 9 LOOP ON ERROR 


-SBTTL BASIC DEFINITIONS 
:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *«* 
STACK = 1100 


AC 
ERROR = EMT ;:BASIC DEFINITION OF ERROR CALL 
SCOPE = JOT ;;BASIC DEFINITION OF SCOPE CALL 


ieee tht DEFINITIONS 


11 :;CODE FOR HORIZONTAL TAB 

Ht = 12 ;;CODE FOR LINE FEED 
CR = 15 ;:CODE FOR CARRIAGE RETURN 
CRLF = 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
«§ - = 177776 : PROCESSOR STATUS WORD 
STKLMT = 177774 ::STACK LIMIT REGISTER 

IRQ = 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 ; HARDWARE SWITCH REGISTER 
DDISP) = 177570 : ;HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER Pekar Afar 
RO = %0 ;;GENERAL REGISTER 
R1 = 41 SI GENERAL REGISTER 
R2 = 2 ;;GENERAL REGISTER 
R3 = %3 7;GENERAL REGISTER 
R4 = %4 ;;GENERAL REGISTER 
R5 = %5 7;GENERAL REGISTER 
R6 = %6 ;;GENERAL REGISTER 
R7 = %7 ;;GENERAL REGISTER 

SP = %6 ::STACK POINTER 
PC = 47 ;;PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 
PRO = 0 7;PRIORITY LEVEL 0 
PRI = 40 ;:PRIORITY LEVEL 1 
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BASIC DEFINITIONS SEQ 0013 
000100 PR2 = 100 ;;PRIORITY LEVEL 2 
000140 PRS = 140 ;;PRIORITY LEVEL 3 
000200 PR4 = 200 ;;PRIORITY LEVEL 4 
000240 PR5 = 240 ;sPRIORITY LEVEL 5 
000300 PR6 = 300 ;;PRIORITY LEVEL 6 
000340 PR? = 340 ;;PRIORITY LEVEL 7 

3*'"SWITCH REGISTER’ SWITCH DEFINITIONS 

100000 SW15 = 100000 
040000 SwW14 = 40000 
020000 Swi3 = 20000 
010000 SWi2 = 10000 

000 Swi] = 4000 
002000 $w19 = 2000 
001000 Sw09 = 1000 
000400 Sw08 = 400 
000200 Sw07 = 200 
000100 $W06 = 100 
000040 Sw05 = 40 
000020 SW04 = 20 

0010 Sw03 = 10 
000004 Sw02 = 4 
000002 Sw01 =2 
000001 Sw00 = 1 
001000 SW9=SWO9 
000400 SW8=SW08 
000200 SW7=SW07 
000100 SW6=SW06 
000040 SW5=Sw05 
000020 SW4=SW04 
000010 Sw3=Sw03 
000004 Sw2=Sw02 
000002 SwWi=Sw01 
000001 Sw0=Sw00 

s*DATA BIT DEFINITIONS (BITO0 TO B1T15) 

100000 B1T15 100000 
040000 B1T14 = 40000 
020000 B1T13. == 20000 
010000 B1T12 = 10000 
004000 B1T11 = 4000 
002000 BI1T10 = 2000 
001000 B1T09 = 1000 
000400 B1T08 = 400 
000200 BIT07 = 200 
000100 B1T06 == 100 
000040 BI705 = 40 
000020 BI1T04 = 20 
000010 BIT03 = 10 
000004 BIT02. = 4 
000002 BI1T01 =2 
000001 BiT00 = 1 
001000 B119=B1109 
000400 B118=B1108 
000200 B117=B1107 
000100 B116=B1106 
000040 B115=B1T05 


" CZRMSAO RMO5S/3/2 DU POR TST 2 


BASIC DEFINITIONS 


DANAA AAA AAI 
WWWIWANWNAW Wr 
DONAUFSWNH—OO 


MAMAN 
MAAN 
OONO UNE Wr 


560 


000020 


000001 


000004 


000240 


000100 


100000 


000001 


100000 
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B1IT4=B1T04 
B113=B1T03 
B1T2=B1102 
B1T1=B1T01 
B1T0=B1T00 
;*BASIC 
ERRVEC = 4 
RESVEC = 10 
TBITVEC = 14 
TRIVEC = 14 
BPTVEC = 14 
IOTVEC = 20 
PWRVEC = 24 
EMTVEC = 30 
TRAPVEC = 34 
TKVEC = 60 
TPVEC = 64 
PIRQVEC = 240 


"CPU'' TRAP VECTOR Bitty 


E OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 


;; TRACE TRAP 

; BREAKPOINT TRAP (BPT 

See TRAP (LOT) **SCOPE*® 

¢ 3 RAUL ATOR TRAP (EMT) **ERROR#* 
TRAP’' TRAP 

:;TTY KEYBOARD VECTOR 

;,TTY PRINTER VECTOR 

:;PROGRAM INTERRUPT REQUEST VECTOR 


~SBTTL RH11/RH70 REGISTERS 
CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 
RDY = 200 
Al6 = 400 
Al? = 1000 
PSEL = 2000 
MCPE = 20000 
TRE = 40000 
SC = 100000 


; INTERRUPT ENABLE (BIT #6) 

:READY (BIT #7) 

;HIGH ORDER BUS ADDRESS BIT (BIT #8) 
HIGH ORDER BUS ADDRESS BIT (BIT #9) 
;PORT SELECT (BIT #10) 
sMASSBUSS PARITY ERROR (BIT #13) 

; TRANSFER ERROR (BIT #14) 
sSPECIAL CONDITION (BIT #15) 


:WORD COUNT REGISTER (RMWC) 
(EACH BIT IS CALLED BY BIT NUMBER) 


-°US ADDRESS REGISTER (RMBA) 
. EACH BIT IS CALLED BY BIT NUMBER) 


“TONTROL AND STATUS REGISTER 2 (RMCS2) 


@ 
> 
oe 
Te 
Svefwesvrevern- 


v 

oc 

m 
Hunn nn 


100000 


sUNIT SELECT (BIT #0) 

sUNIT SELECT (BIT #1) 

sUNIT SELECT (BIT #2) 

BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
:MASSBUS PARITY TEST (BIT #4) 
:CLEAR (BIT #5) 

: INPUT READY (BIT #6) 

OUTPUT READY (BIT #7) 

MASS BUS PARITY ERROR (BIT #8) 
:MISSED TRANSFER ERROR (BIT #9) 
;PROGRAM ERROR (BIT #10) 

sNON EXISTENT MEMORY (BIT #11) 
NON EXISTENT DRIVE (BIT #12) 
:;UNIBUS PARITY ERROR (BIT #13) 
sWRITE CHECK ERROR (BIT #14) 


:DATA LATE (BIT #15) 


SEQ 0014 


| ‘ —€ 2 
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RH11/RH70 REGISTERS SEQ 0015 
567 
568 DATA BUFFER REGISTER (RMDB) 
a4 ; (EACH BIT IS CALLED BY BIT NUMBER) 
44) -SBTTL RM REGISTERS 
ef? ;CONTROL AND STATUS 1 REGISTER. (#00) 
575 000001 GO « ] 360 BIT (BIT #0) 
576 000002 FO = 2 FUNCTION CODE BIT #1 
577 000004 Fl = 4 sFUNCTION CODE BIT #2 
578 000010 F2 = 10 FUNCTION CODE BIT #3 
579 000020 F3 = 20 sFUNCTION CODE BIT #4 
580 000040 F4 = 40 FUNCTION CODE BIT #5 
+H! 004000 DVA = 4000 :DEVICE AVAILABLE (BIT #11) 
2 +4 DRIVE STATUS REGISTER (RMDS) (#01) 
585 :DF5 = 1 DRIVE FORWARD 5''/SEC. (BIT eer 
586 000002 DFF20 = 2 sDRIVE FORWARD 20°'/SEC. (BIT # 
587 000004 DIGB = 4 ;DRIVE TO INNER GUARD BAND (BIT "20 
588 000010 GRV = 10 GO REVERSE (BIT #3) 
589 000020 DL64 = 20 [DIFFERENCE LESS Waa 64 (BIT #4) 
590 000040 DE1 = 40 DIFFERENCE EQUALS 1 (BIT #5) 
591 000100 VV = 100 ‘VOLUME VALID (BIT #6) 
592 000200 DRY = 200 DRIVE READY (BIT #7) 
593 000400 DPR = 400 DRIVE PRESENT (BIT #8) 
5% 001000 PGM = 1000 ;PROGRAMABLE (BIT #9) 
595 002000 LBT = 2000 sLAST SECTOR TRANSFERRED (BIT #10) 
596 004000 WRL = 4000 ‘WRITE LOCK (BIT #11) 
597 010000 MOL = 10000 :MEDIUM ON-LINE (BIT #12) 
598 020000 PIP = 20000 sPOSITIONING OPERATION 1N, PROGRESS (BIT #13) 
599 040000 ERR = 40000 COMPOSITE ERROR (BIT #14 
$09 100000 ATA = 100000 SATTENTION ACTIVE (BIT #13) 
on ERROR REGISTER #01 (RMER1) (#02) 
604 000001 ILF = 1 sILLEGAL FUNCT? 'O tT #0) 
605 000002 ILR = 2 sILLEGAL Rt S ‘olT #1) 
606 000004 RMR 24 REGISTER MOLL CATION REFUSED (BIT #2) 
607 000010 PAR = 10 PARITY ERROR (BIT #3) 
608 000020 FER = 20 FORMAT ERROR (BIT #4) 
609 000040 WCF = 40 WRITE CLOCK FAIL (BIT #5) 
610 000100 ECH = 100 ECC HARD ERROR (BIT #6) 
611 000200 HCE = 200 ;HEADER COMPARE ERROR (BIT #7) 
612 000400 HCRC = 400 HEADER CRC ERROR (BIT #8) 
613 001000 AOE = 1000 ADDRESS OVERFLOW ERROR (BIT #9) 
614 002000 1AE = 2000 INVALID ADDRESS ERROR (BIT #10) 
615 004000 WLE = 4 [WRITE LOCK ERROR (BIT #71) 
616 010000 DTE = 10000 DRIVE TIMIN ROR (BIT #12) 
617 020000 OP] = 20000 OPERATION INCOMPLETE (BIT #13) 
618 040000 UNS = 40000 ;DRIVE UNSAFE 
*” 100000 DCK = 100000 DATA CHECK ERROR (BIT 15) 
st sMAINTAINABILITY REGISTER (RMMR1) (#03) 
6 
623 000001 DMD = 1 DIAGINOSTIC MODE (BIT #0) 


CZRMSAO ys DU POR TST 2 


RM REGIST 


000001 


000200 


000001 


100000 


000100 


002000 


000010 


100000 


000200 


D2 
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sATTENTION SUMMARY PSEUDO-REGISTER (RMAS) 


ATO =] : DEVICE 
AT] = 2 :DEVICE 
AT2 = 4 : DEVICE 
AT3 = 10 sDEVICE 
AT4 = 20 : DEVICE 
ATS = 40 ;DEVICE 
AT6 = 100 sDEVICE 
AT? = 200 :DEVICE 


NOUS WhO 
“Annee 
Oowwwwww 


(#04) 


ht at a bt bt bt be 
eS ee 
Sea 
, 
~~ 


sDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 


(EACH BIT IS CALLED BY BIT NUMBER) 
sDRIVE TYPE REGISTER (RMDT) (#06) 


DTOO = | :DRIVE TYPE NUMBER BIT 1 

DT01 =2 DRIVE TYPE NUMBER BIT 2 

DT02 = 4 DRIVE TYPE NUMBER BIT 3 

DT03 = 10 :DRIVE TYPE NUMBER BIT 4 

DT04 = 20 DRIVE TYPE NUMBER BIT 5 

DT05 = 40 ;DRIVE TYPE NUMBER BIT 6 

DT06 = 100 :DRIVE TYPE NUMBER BIT 7 

D107 = 200 DRIVE TYPE NUMBER BIT 8 

D108 = 400 :DRIVE TYPE NUMBER BIT 9 

DRQ = 4000 DRIVE REQUEST REQUIRED (BI1 #11) 
MOH = 20000 :MOVING HEAD (BIT # 4H 

TAP = 40000 ;TAPE DRIVE (BIT #14 

NBA = 100000 :NOT BLOCK ADDRESSED. (BIT #15) 
;LOOK-AHEAD REGISTER (RMLA) (#07) 

sco = 100 SECTOR COUNT FIELD 0 (BIT #6) 
$C] = 200 :SECTOR COUNT FIELD 1 (BIT #7) 
SC2 = 40 SECTOR COUNT FIELD 2 (BIT #8) 
$¢c3 = 1000 SECTOR COUNT FIELD 3 (BIT #9) 
SC4 = 2000 ;SECTOR COUNT FIELD 4 (BIT #10) 
;RM ERROR REGISTER #2 (RMER2) (#10) 

DPE = 10 :DATA PARITY ERROR (BIT #3) 
DvCc = 200 DEVICE CHECK (BIT #7) 

LBC = 2000 :LOSS OF BIT CLOCK (BIT #10) 
LSC = 4000 LOSS OF SYSTEM CLOCK (BIT #11) 
IvCc = 10000 INVALID COMMAND (BIT #12) 

OPE = 20000 ;OPERATOR ERROR (BIT #13) 

SK] = 100000 :SEEK INCOMPLETE (BIT #14) 
OFFSET REGISTER (RMOF) (#11) 

OF D = 200 sOFFSET FORWARD (BIT #5) 

HC] = 2000 HEADER COMPARE INHIBIT (BIT #10) 
EC] = 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT16 == 10000 FORMAT BIT (BIT #12 


DESIRED CYLINDER ADDRESS (RMDC) (#12) 


SEQ 0016 





E 2 
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RM REGISTERS SEQ 0017 
oe} ; (EACH BIT 1S CALLED BY BIT NUMBER) 
683 ;SERIAL NUMBER REGISTER (RMSN) (#14) 
ore ; (EACH IS CALLED BY BIT NUMBER) 
686 sECC POSITION REGISTER (RMEC1) (#16) 
Hf ;(EACH BIT 1S CALLED BY BIT NUMBER) 
689 sECC PATTERN REGISTER (RMEC2) (#17) 
81 ; (EACH BIT IS CALLED BY BIT NUMBER) 
4) -SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 
694 000000 RMCS1 == 0 :CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
695 000002 RMWC = 2 ;WORD COUNT REGISTER (NOT A DRIVE REG) 
696 000004 RMBA = 4 ;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
697 00006 RMDA = 6 DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
698 000010 RMCS2 = 10 ;CONTROL_AND STATUS REGISTER #2 (NOT A DRIVE REG) 
699 000012 RMDS = 12 :DRIVE STATUS REGISTER (DRIVE REG 01) 
700 000014 RMER1 = 14 s;ERROR REGISTER #1 (DRIVE REG. 02) 
701 000016 RMAS = 16 sATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
702 000020 RMLA = 20 ;LOOK AHEAD REGISTER (DRIVE REG. 07) 
703 000022 RMDB = 22 DATA BUFFER REGISTER (NOT A DRIVE REG.) 
704 000024 RMMR1 == 24 ;:MAINTAINABILITY REGISTER (DRIVE REG. 03) 
705 000026 RMDT = 26 DRIVE TYPE REGISTER (DRIVE . 06) 
706 000030 RMSN = 30 SERIAL NUMBER REGISTER (DRIVE REG. 10) 
70 000032 RMOF = 32 OFFSET REGISTER (DRIVE REG. 11) 
70 000034 RMDC = 34 :DESIRED CYLINDER ADDRESS REGISTER bat? REG. 12) 
709 000040 RMMR2 == 40 ;MAINTENANCE REGISTER #2 (DRIVE REG. 14 
710 000042 RMER2 == 42 ERROR REGISTER #2 (DRIVE REG. 15) 
711 000044 RMEC1 = 44 ECC POSITION REGISTER (DRIVE REG. 16) 
Ne 000046 RMEC2 == 46 ;ECC PATTERN REGISTER (DRIVE REG. 17) 
715 
716 -SBTTL TRAP CATCHER 
000000 -=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.4#2,HALT" 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
000174 eA SCAT IOS F CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: .WORD 0 :: SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 2 :SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
"7 000200 000137 001766 JMP O#START ;: JUMP TO STARTING ADDRESS OF PROGRAM 
4 000204 000137 001774 JMP O#STARTI START AND CHANGE THE RH/RM ADDRESS 
720 ~SBTTL ACT11 HOOKS 
Peete eeer eee eee eee eee eee eee eee eee eee eee eee eee ee 
‘ HOOKS REQUIRED BY ACT11 
000210 $SVPC=. :SAVE PC 
000046 .=46 


000046 013366 SENDAD 2: 1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


5 , 2 
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ACT11 4 SEQ 0018 


000052 52 
000052 020000 ORD 
000210 $Sv 


" <n 


20000 . Sse 0c.52 TO 20000 
PC . : E PC 
721 
757 


S 2 
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COMMON T SEQ 0019 


0 -SBTTL COMMON TAGS 


PERERA RARER EEE EERE ETEK KKE KKK KA KKK eee eee 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


001100 -=1100 
001100 SCMTAG: ;;START OF COMMON TAGS 
001100 000000 $PASS: .WORD 0 3; CONTAINS PASS COUNT 
001102 000 STSTNM: .BYTE 0 ;;CONTAINS THE TEST NUMBER 
001103 SERFLG: .BYTE 0 :;CONTAINS ERROR FLAG 
001104 000000 SICNT: .WORD 0 3;CONTAINS SUBTEST aS ceeaees COUNT 
001106 000000 $LPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
001110 000000 $LPERR: .WORD 0 ;;CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 ;:CONTAINS TOTAL ERRORS DETECTED 
001114 S$ITEMB: .BYTE 0 ;;CONTAINS ITEM CONTROL BYTE 
001115 SERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 ;:CONTAINS PC OF LAST ERROR INSTRUCTION 
001120 000000 $GDADR: .WORD 0 ;;CONTAINS ADDRESS UF ‘GOOD' DATA 
001122 000000 SBDADR: .WORD 0 3;CONTAINS ADDRESS OF "BAD DATA 
001124 000000 S$GDDAT: .WORD 0 ;;CONTAINS ‘GOOD’ aes & 
001126 000000 $BDDAT: .WORD 0 3;CONTAINS "BAD' DATA 
001130 000000 -WORD 0 ;;RESERVED--NOT TO BE USED 
001132 000000 -WORD 0 
001134 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE 0 3; INTERRUPT MODE INDICATOR 
001136 000000 -WORD 0 
001140 177570 SWR : ~-WORD DSWR ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP : TADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 eeTTy KBD STATUS 
001146 177562 $TKB: 177562 3: TTY KBD BUFFER 
001150 177564 $TPS: 177564 :iTTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 catty PRINTER BUFFER REG. ADDRESS 
001154 00 $NULL: .BYTE 0 ;CONTAINS NULL CHARACTER FOR FILLS 
001155 002 SFILLS: .BYTE 2 i CONTAINS. # OF FILLER erg gi REQUIRED 
001156 012 SFILLC: .BYTE 12 77 INSERT F2LL CHARS. AFTER A‘ FEED" 
001157 000 STPFLG: .BYTE 0 i: TERMINAL AVAILABLE’ fim (Blt<07>= O=YES) 
001160 000000 SREGAD: .WORD 0 3; CONTAINS THE ADDRESS FROM 
szWHICH ($REGO) WAS OBTAINED 

001162 000000 $REGO: .WORD 0 Sa tle er (($REGAD) +0) 
001164 000000 STMPO: .WORD 0 :;USER DEFINED 
001166 000 STMP1 WORD 0 ;;USER DEFINED 
001170 000000 STMP2 WORD 0 USER DEFINED 

1172 000000 STMPS WORD 0 ;:;USER DEFINED 
001174 000000 STMP4: .WORD 0 ;;USER DEFINED 
001176 000000 STIMES: 0 : MAX. NUMBER OF ITERATIONS 
001200 000000 SESCAPE :0 Hig ON ERROR ADDRESS 
001202 207 377 377 $BELL: .ASCIZ >: + elite 7;CODE FOR BELL 
001206 077 $QUES: .ASCII ; QUESTION MARK 
001207 015 $SCRLF: .ASCII “iss 7: CARRIAGE RETURN 
001210 012 000 $LF: eASCIZ <12> :;LINE FEED 


s[eeeeeeereeeeeeterrerereneeeeeeeeeeeKeeee Ree ReeKeeeReeeneeee 
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| USER DEFINED TAGS 


0 


rrororororoeryefrerofnrry 


WWWIWNPN NNN 
ALMOS LNCS £rw 


000000 


176700. 


000254 
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~SBTTL 


$LKCSR: . 
B: 


KYBCTL: . 
CHGADR: 


-SBTTL 


SRMADR: 
SRMVEC: 


USER DEFINED TAGS 


SFQ 0020 


172540 sADDR OF KWI1-P STATUS REGISTER 
172542 sADDR OF KW11-P COUNTER BUFFER 
104 ;ADDR OF KW11-P VECTOR 
177546 sADDR OF KWil-L STATUS REGISTER 
0 ;ADDR OF KW11l=L VECTOR 

sADDRESS OF oan A 

sADDRESS OF PORT B 

sADDRESS OF he DRIVE 


TATA=A OR 


> CONTAIN 
‘NUMBER 
t1F -1, 
i1F “1, 
s1F -1, 
‘ELAPSED 
;WATCH D 


:PORT A 


POO ewewre a 


‘ CHANGE 


RH/RM UNIBUS AND VECTOR ADDRESSE 


«WORD 
- WORD 


176700 ;RH/RM U 
254 ; INTERRU 


ATA-B = 


CONTAINS THE PORT " ADDRESS FOR ERROR TYPEOUTS 
;CONTAINS THE ADDRESS OF THE SEIZING PORT 


S THE ADDRESS * - "OPPOSITE’ PORT 

OF THE CURRENT TEST 

A REGISTER MISCOMPARISON OCCURRED 

THE PORT IN "SEIZPT' DID NOT SEIZE THE DRIVE 
THE PORT IN ‘SEIZPT' DID NOT RELEASE THE DRIVE 
TIME COUNTER 

OG TIMER LOCATION 


;THE TIMEOUT ONE=SHOT VALUE MEASURED THROUGH PORT A 


TIMEOUT VALUE + 25% 


: THE TIMEOUT ONE-SHOT v2 MEASURED THROUGH PORT B 


THE RH/RM ADDRESS INDICATOR 
S 


NIBUS ADDRESS 
PT VECTOR ADDRESS 


CZRMSAO RMO5/3/2 DU POR 
ERROR POINTER TABLE 


0 


001276 


001276 


BNOUES WN —OOONOUES WH —ODOONOUFwWwr— 


MPOPMIPSTYUNRIAIN NN — st SS 


2° 
30 
31 


017703 


024250 


020051 


024255 


020073 


024263 


020155 


024270 


TST 2 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
: *LOCATION seat | THIS NUMBER INDICATES WHICH ITEM IN THE Hoy 9 ie PERTINENT. 


:*NOTE1: 


;*NOTE2: 


SERRTB: 
sERROR 1 


sERROR 2 


ERROR 3 


ERROR 4 


;ERROR 5 


ERROR 6 


F SITEMB 1S 0 THE ONLY PERTINENT DATA IS ($ERR 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


SEIN TO THE ERROR MESSAGE 
;POINTS TO THE DATA HEADER 
::POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 


DRIVE IS NON-EXISTENT ('NED’ BIT SET) 


;WRONG DRIVE TYPE 


;CONTROLLER SELECT SWITCH ON DRIVE NOT IN ‘A/B' 


;DRIVE NOT ON LINE 


SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME 


TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 


SEQ 0021 


J 2 
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ERROR POINTER TABLE SEQ 0022 


43 

“ sERROR 7 

46 001356 020227 EM7 
47 001360 022703 DH7 
48 001362 024106 DT7 
ee 001364 024273 DF7 
2} ERROR 10 

53 001366 020274 EM10 
54 001370 022460 DH1 
55 001372 024030 DT1 
6 001374 024250 DF1 
4 sERROR 11 

60 001376 020362 EM11 
61 001400 022460 DH1 
62 001402 024030 DTI 
7 001404 024250 DF1 
ERROR 12 

67 001406 020427 EM12 
68 001410 022460 DH1 
69 001412 024030 DT1 
4 001414 024250 DF 1 
ie ERROR 13 

74 001416 020476 EM13 
75 001420 022750 DH13 
76 001422 024120 DT13 
4 001424 024270 DF6 
a ERROR 14 

81 001426 020563 EM14 
82 001430 023025 DH14 
83 001432 024130 DT14 
a 001434 024277 DF14 
86 sERROR 15 

88 001436 020645 —EM15 
89 001440 022460 DH1 
90 001442 024030 DT1 
$1 001444 024250 DF 1 
3 ZERROR 16 
4 001446 020731 EM16 
97 001450 022750 DH13 
98 001452 024120 D113 
99 001454 024270 DF6 


; TIMEOUT ONE-SHOT IS LESS THAN 500 MS 


sREADIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT 


;"GO' BIT RESET DURING UNLOAD COMMAND 


; INCORRECT STATUS DURING UNLOAD COMMAND 


sDRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND 


sATTENTION BIT SET ON ‘OPPOSITE PORT’ AFTER UNLOAD 


sATTENTION BIT NOT SET ON PORT WHICH ISSUED "UNLOAD' 


;DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH "CONTROLLER 
;SELECT® SWITCH MOVED FROM ‘A/B' 


— CZRMSAO RMO5/3/2 DU POR TST 2 


ERROR POINTER TABLE 


7 
SOoSeus ORS 


and an ad eal al en eh eh en ea eae ee ee eal ee ee ect eel 
MOMIPININNY — Ss 


a ee ee ed ed ed ed 


WERE ERE EE WWW oppor 


001456 
001460 
001462 
001464 


001466 


001474 


001476 


001534 


001536 


001544 


001546 


001554 


024250 


021274 


024250 


021372 


024250 


021465 


024273 


021545 


024307 


000000 


000000 


ERROR 17 


sERROR 26 
0 
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:DRIVE LOCKED ON PORT ‘A’ BY SWITCH WHILE CYCLED uP 


;DRIVE LOCKED ON PORT 'B' BY SWITCH WHILE CYCLED uP 


STATUS INCORRECT FOR PORT AFTER CYCLE UP 


sREGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ‘OPPOSITE’ PORT 


:"NED' SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED 


DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 


;RH/RM DIDN'T RESPOND TO ADDRESSING 


;UNUSED ERROR MESSAGES 


a 


SEQ 0023 


— CZRMSAO RMOS/3/2 DU POR 


ERROR POINTER TABLE 


DOOO OOOO OO O WO 00 OO 09 C0 00 09 09 C9 SI I NI INN NINN OOO w 


ot 


REN 


205 
206 
207 
208 


001556 


0 
001602 
001604 


001606 


001614 


001616 


001624 


001626 


001634 


001636 


001644 


001646 


001654 


000000 


024255 


021707 


024255 


021737 


; ERROR 


sERROR 


; ERROR 


;ERROR 


; ERROR 


; ERROR 


;ERROR 


ERROR 


; ERROR 


27 
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;UNUSED ERROR MESSAGES 


;DRIVE NOT SEIZED BY PORT '‘N' 


;WRONG STATUS SEEN BY THE SEIZING PORT 


REGISTER CONTENTS INCORRECT 


;CONTROL BUS PARITY ERROR WHILE READING REGISTER 


:CAN'T ACCESS DRIVE THROUGH EITHER PORT 


DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 


ORIVE NOT IN NEUTRAL AFTER TiMEOUT, REQUEST NOT SET 


SEQ 0024 


j mM 2 
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ERROR POINTER TABLE SEQ 0025 
| 209 

210 001656 022244 EM37 ;REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 

211 001660 023610 DH37 

212 001662 024172 DT30 

gl? 001664 024310 DF 30 

gi sERROR 40 

217 001666 022325 EM40 ;DRIVE NOT SEIZED 8Y PORT AFTER RELEASE WITH REQUEST SET 

218 001670 023732 DH40 . 

219 001672 024236 DT40 

seo 001674 024273 DF? 

ssf sERROR 41 4 

224 001676 022402 EM41 sREGISTER WRONG AFTER RELEASE WITH REQUEST SET ; 

225 001700 023275 DH30 

226 001702 024172 DT30 

227 001704 024310 DF 30 

228 

234 


" CZRMSAO RMOS/3/2 DU POR TST 2 
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| ERROR POINTER TABLE 


SEQ 0026 


| \ THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
| 3001706 011600 BADTMO: MOV (SP),RO ;SAVE PC WHERE THE TIME OUT OCCURED 
| 4 001710 005740 TST =(ROS JUST 
| 5 001712 022626 CMP (§P)+, (SP)+ RESTORE STACK POINTER 
6 001714 104401 001722 TYPE ,65$ TYPE ASCIZ STRING 
| 001720 000417 648 “:GET OVER THE ASCIZ 
| +:65$: -ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
001760 648: 
7 001760 010046 Ov RO,-(SP) :SETUP FOR TYPING OUT PC 
8 001762 104402 TYPOC 
9 001764 000240 NOP PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
| 19 “10 STOP ON UNEXPECTED TIMEOUT. 
| 12 .SBTTL START OF PROGRAM 
| 14 001766 005037 001270 START: CLR CHGADR =CLEAR THE "CHANGE RH/RM ADDRESS’ INDICATOR 
| 15 001772 000403 BR START2 “60 TO THE START 
| 4 001774 012737 177777 001270 START1: MOV #-1, CHGADR :SET THE "CHANGE RH/RM ADDRESS’ INDICATOR 
19 002002 000240 START2: NOP 
20 002004 005227 000000 INC #0 TTY LOOP, WAIT FOR INCREMENT 
21 002010 001375 BNE at “OF WORD 
22 002012 000005 RESET “CLEAR THE WORLD 
24 .SBTTL INITIALIZE THE COMMON TAGS 
TSCLEAR THE COMMON TAGS (SCMTAG) AREA 
002014 012706 001100 Mov HSCMTAG, RO ::FIRST LOCATION TO BE CLEARED 
002020 005026 CLR (R6)+ ::CLEAR MEMORY LOCATION 
002022 022706 001140 CMP #SUR RE : DONE? 
002026 001374 BNE LOOP BACK IF NO 
002030 012706 001100 WSTACK,SP SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
002034 012737 013620 000020 WSSCOPE -AFIQTVEC 101 VECTOR FOR SCOPE ROUTINE 
002042 012737 000340 000022 MOV #340, a#10TVEC+2 s:LEVEL 7 
002050 012737 014002 000030 MoV #SERROR, a#EMTVEC HEMT VECTOR FOR ERROR ROUTINE 
002056 912737 000340 000032 MoV #340, aWEMTVEC42 3:L 
| 002064 012737 016654 00003 MoV #STRAP ,a#TRAPVEC eh VECTOR FOR TRAP CALLS 
002072 012737 000340 000036 MOV #340 ad TRAPVEC+2; LEVEL 7 
| 002100 013737 013232 013224 MOV SENDCT ,SEOPCT ETUP END-OF-PROGRAM COUNTER 
| 002106 005037 001176 CLR TIME ‘SINITIALIZE NUMBER OF ITERATIONS 
002112 005037 001200 CLR ESCA CLEAR THE ESCAPE ON ERROR ADDRESS 
002116 112737 000001 001115 MOVB #1, SERMAX “TALLOW ONE ERROR PER TEST 
| 002126 012737 002124 001106 MOV 4. SLPADR i INITIALIZE THE LOOP ADDRESS FOR SCOPE 
| 002132 012737 002132 001110 MoV #. “SLPERR {SETUP THE ERROR LOOP ADDRESS 
| ;3S1ZE FOR A HARDWARE SuITCH REGISTERS IF NOT FOUND OR IT IS 
| T:EQUAL TO A ‘'=1"" ,-SETUP FOR A SOFTWARE, SWITCH REGISTER. 
| 002140 013746 000004 Mov QHERRVEC,-(SP) ;;SAVE ERROR VECTOR 
| 002144 012737 002200 000004 MOV #64$,a asEARVEC SET UP ERROR VECTOR 
002152 012737 177570 00114 MoV #DSWR, SWR SETUP FOR A HARDWARE SWICH REGISTER 
002160 012737 177570 001142 MoV HDDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
! 002166 022777 177777 176744 CMP #-1,aSUR ::TRY TO REFERENCE HARDWARE SW 
002174 001012 BNE 668. BRANCH IF NO TIMEOUT TRAP OCCURRED 
:: THE HARDWARE SW 2 * 
| 002176 000403 BR 65% BRANCH IF NO TIMEOUT 
| 002200 012716 002206 64$: MOV #65$, (SP) ISET UP FOR TRAP RETURN 
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NITIALIZE THE 


he | 
i] SEQ 0027 


COMMON TAGS 
002204 000002 RT] 
002206 012737 000176 001140 658: MOV ASWREG, SWR a TO SOFTWARE SWR 
002214 012737 000174 001142 MOV #DISPREG, DISPL 
002222 012637 000004 66$: MOV (SP)+, SFERRVEC " | :RESTORE ERROR VECTOR 


:SETUP ""TIMEOUT'’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 


25 
$8 002226 001706 000004 MOV MBADTMO,ERRVEC ;SETUP _ UNEXPECTED TIMEOUT 
28 


012737 
002234 012737 000300 000006 MOV WPRO,ERRVEC+2 LEVEL 
002242 012746 000140 MOV #PR3.-(SP) ::PUT NEW PS ON STACK 
602246 012746 002254 _ MOV #67$.-(SP) ::PUT NEW PC ON STACK 
002252 000002 RT] 3;POP NEW PC AND PS 
* 002254 67$: 
30 .SBITL TYPE PROGRAM NAME 
>: TYPE THE _NAME OF THE PROGRAM IF FIRST PASS 
002254 005227 177777 IN t-1 siFIRST TIME? 
002260 001054 BNE 58S ::BRANCH IF NO 
002262 022737 013366 000042 CMP WSENDAD,Q#42 = :ACT=11 
002270 001450 BEQ 68$ i ;BRANCH IF YES 
002272 104401 002330 TYPE ,69% *TYPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE sii TCH REGISTER 
002276 005737 000042 TST aag2 ARE WE RUNNING UNDER XXDP/ACT? 
002302 001006 BNE 70$ +:BRANCH IF YES 
002304 023727 001140 000176 CMP SWR, #SWREG : SOF TWARE SWITCH REG SELECTED? 
002312 001005 BNE 71$ ‘BRANCH IF NO 
002314 104406 GTSWR 7IGET SOFT-SWR SETTINGS 
902316 000403 BR 71$ 
002320 112737 000001 001134 708: MOVB #1, SAUTOP ::SET AUTO-MODE INDICATOR 
002326 000431 BR 68$ :GET OVER THE ASCIZ 
::69$: .ASCIZ <CRLF>@CZRMSAO -'RMOS/3/2 DUAL PORT LOGIC TEST, PART 2a<CRLF> 
ss 002412 68$: 
32 002412 004737 015264 1$: JSR PC, $TKINT :SETUP THE TTY KEYBOARD 
33 002416 004737 003010 JSR PC. CHANGE >CHECK/CHANGE THE RH/RM ADDRESS 
34 002422 104401 016742 TYPE  ,ENTERA TENTER DRIVE ADDRESS 
35 002426 104412 RDOCT :GET THE ADDRESS 
36 002430 012637 001224 MOV (SP)+,PORTA [STORE THE ADDRESS 
37 002434 023727 001224 000007 CMP PORTA.#7 :SEE IF ADDRESS TOO LARGE 
38 002442 101403 BLOS = 2$ [BR IF NOT 
39 002444 104401 016771 TYPE ADRERR ZTYPE ADDRESS ERROR MESSAGE 
40 002450 000760 BR .__-sviis :TRY AGAIN 
41 002452 013737 001224 001226 2%: MOV PORTA,PORTB [GENERATE THE PORT B ADDRESS 
42 002460 005237 001226 INC PORTB : INCREMENT THE ADDRESS 
3 002464 042737 000016 001226 BIC #16,PORTB :LEAVE BIT 0 
44 002472 013746 001224 MOV PORTA, -(SP) :PUT PORT A ADDRESS ON THE STACK 
45 0024676 042716 177771 BIC #°C6, (SP) > SAVE B1iS, ef 
46 002502 052637 001226 BIS (SP)+,PORTB ;SET BITS 1 & 2 IN PORT B ADDRESS 
47 002506 104401 017013 TYPE =, PORTAIS :"PORT A ADDRESS IS ' 
468 002512 013746 001224 MOV PORTA, -(SP) i SAVE PORTA FOR TYPEOUT 
002516 104403 TYPOS 7:G0 TYPE--OCTAL ASCII 
002520 001 .BYTE 1 Ti: TYPE 1 DIGIT(S) 
002521 000 “BYTE 0 ‘| SUPPRESS LEADING ZEROS 
49 002522 104401 017040 TYPE  ,PORTBIS PORT B ADDRESS IS ° 
50 002526 013746 001226 MOV PORTB,-(SP) +:SAVE PORTB FOR TYPEOUT 


:: TYPE PORT B ADDRESS 


3 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0028 

002532 104403 TYPOS 3;G0_ TYPE=-OCTAL ASCII 
002534 001 BYTE 1 3; TYPE 1 DIGIT(S) 
002535 000 BYTE 0 i; SUPPRESS LEADING ZEROS 

51 002536 104401 001207 TYPE »SCRLF NOTHER CR=L 

52 002542 013737 001224 001230 MOV PORTA, PORTC GENERATE ADDRESS OF DRIVE NOT TESTED 

53 002550 062737 000006 001230 ADD #6,PORTC ; COMPLEMENT SOME BITS 

54 002556 042737 177770 001230 BIC #*C7,PORTC ‘SAVE ONLY LOWER BITS 

55 002564 013701 001224 MOV PORTA,R1 [USE PORT A ADDRESS AS INDEX 

56 002570 116137 024344 001232 MOVB ATABIT(R1),ASR1 ;GET ATTENTION BIT FOR DRIVE 

59 002576 005037 001256 CLR TIMEA :CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
002602 005037 001260 CLR TIMEAP [CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
002606 005037 001262 CLR TIMEB CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
002612 005037 001264 CLR TIMEBP CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 

60 002616 004737 013406 JSR PC,CKCLK :SETUP CLOCK 

61 002622 000137 002636 JMP EXEC CLOCK HAS BEEN STARTED 

62 002626 104401 017065 TYPE »NOCLOCK ‘NO CLOCK ON SYSTEM 

63 002632 000000 3$: HALT [FATAL ERROR 

¢ 002634 000776 BR 3$ yINTERLOCK THE HALT 

66 ;ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 

68 002636 000005 EXEC: RESET CLEAR EVERYTHING 

69 002640 005037 177776 CLR PS CLEAR THE PROCESSOR STATUS WORD 

70 002644 104401 001207 TYPE ,SCRLF » CR=LF 

71 002650 013700 001272 MOV SRMADR RO ;RH/RM ADDRESS FOR INDEXING 

72 002654 012706 001100 MOV WSTACK,SP :LOAD STACK POINTER 

73 002660 004737 013406 JSR PC, CKCLK sSTART THE CLOCK 

74 002664 000240 NOP ;RETURN IF NO CLOCK 

75 002666 004737 015264 JSR PC, $TKINT INITIALIZE THE KEYBOARD 

76 002672 005037 001266 CLR KYSCTL CLEAR SINGLE TEST INDICATOR 

77 002676 005037 001100 CLR SPASS CLEAR THE PASS COUNT 

78 002702 112737 000001 001115 MOVB #1, SERMAX :SET ERROR MAX TO 1 

79 002710 012737 002710 001106 MOV #.,$LPADR SINITIAL SETTING FOR LOOP ADDRESS 

80 002716 012737 002716 001110 MOV #.,$LPERR INITIAL SETTING FOR LOOP ON ERROR ADDRESS 

81 002724 104401 017132 1$: TYPE , TESTNO zASK FOR TEST NUMBER 

82 002730 104412 RDOCT GET THE NUMBER 

83 002732 012601 MOV (SP)+,R1 sPUT ENTRY INTO R1 

84 002734 001002 BNE 2$ 7BR IF NOT ZERO 

85 002736 000137 003132 JMP TST1 sENTER ZERO - PERFORM ALL TESTS 

86 002742 020137 024354 2$: CMP R1,MAXTN ;SEE IF NUMBER GREATER THAN MAXIMUM 

87 0027 003403 BLE 3$ 7BR IF LESS OR EQUAL 

88 002750 104401 017152 TYPE ,BADNO :BAD ENTRY 

89 002754 000763 BR 1$ AGAIN 

90 002756 005301 3$: DEC R1 SDECREREN ENTRY 

91 002760 006301 ASL RA sSHIFT IT LEFT 

92 002762 016137 024324 003006 MOV TSTADR(R1),4$ :GET THE TEST ADDRESS 

93 002770 005237 001266 INC KYBCTL 3SET SINGLE TEST INDICATOR 

94 002774 012737 000001 001104 MOV #1,S1CNT :PRESET ITERATION COUNT 

95 003002 000177 000000 JMP aug :G0 TO THE SELECTED TEST 

96 003006 000000 4$: -wWORD 0 ost ADDRESS GOES HERE 

4 CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 

100 003010 005737 001270 CHANGE: TST CHGADR : CHANGE ltt ADDRESS ? 

101 003014 001421 BEQ 3$ :BR IF 

102 003016 005037 001270 CLR CHGADR *CLEAR mae INDICATOR 

103 003022 104401 017200 1$: TYPE ,ADDRIS TYPE OUT WHAT THE PRESENT ADDRESS IS 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0029 
| 104 003026 Eee 001272 MOV SRMADR,=-(SP) ;PUT THE ADDRESS ON THE STACK 
105 003032 104402 TYPOC TYPE THE ACTUAL ADDRESS 
106 003034 104401 001207 TYPE - SCRLF 7 CR-LF 
107 003040 104401 017235 TYPE »NTRH11 ;ASK FOR NEW ADDRESS 
108 003044 104412 RDOCT 
109 003046 005716 (SP) 70 OR ‘CR* ENTERED 
110 003050 001402 BEQ 2$ :BR IF EITHER ENTERED (NO ADDRESS CHANGE) 
111 003052 011637 001272 MOV tiers c SRAADR NEW RH/RM ADDRESS 
112 003056 005726 2$: TST ety CORRECT THE STACK POINTER 
113 003060 012737 003100 000004 3$: MCY Sas 4 [LOAD TRAP ADDRESS 
114 003066 013700 001272 MOV SRMADR RO GET RH/RM ADDRESS 
.115 003072 005760 000002 TST RMWC (RO) RESPONDS AT THAT ADDRESS ? 
116 003076 000404 BR 5$ ;BR IF YES 
117 003100 4$: 
003100 104025 EMT 25 
118 003102 062706 000004 ADD a4 ,SP RESET THE STACK POINTER 
119 003106 000745 BR 1$ :GET ADDRESS AGAIN 
120 003110 012737 000006 000004 S$: MOV 46,084 RESTORE THE VECTOR 
+H 003116 000207 RTS PC RETURN 
136 
137 003120 013700 001272 TSTIAA: MOV SRMADR ,RO ;;RESTORE RO AFTER END OF PASS 
is 003124 012760 000040 000010 MOV #CLR,RMCS2(RO) :CLEAR MASSBUS 
140 PRR EEE EEE EEE EKER ERE Ae eee 
: TEST 1 DRIVE ACCESS TEST 
:*VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
. A. SELECT DRIVE, VERIFY THAT THE DRIVE 1S PRESENT, THAT THE 
7* DRIVE 1S A DUAL PORT RMO5, RMO3 OR RMO2 AND THAT THE wt} 
3* 1S ONLINE (RMDS HAS ‘MOL, 'PGM', ‘DPR’, & ‘DRY BITS SET 
:* roe > ge DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS 15" 
3° H 
+t 
:* B. THE TEST 1S REPEATED THROUGH BOTH PORTS. 
-* 
ETTIIITITITITITITITITI TL TTTITI TT LTTIT TTT TiTit iii iiiTiTt ttt 
003132 TST1: 
003132 005737 001266 TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
003136 001406 BEQ 2$ :BR IF NOT 
003140 100002 BPL 1$ - IF JUST ENTERED TEST 
003142 000137 002636 JMP EXEC ETURN & GET NEXT TEST NUMBER 
003146 012737 177777 001266 1%: MOV #-1,KYBCTL ‘SET SINGLE TEST INDICATOR 
003154 012737 003170 001106 2$: MOV MTESTI,$LPADR ;SETUP SCOPE LOOP ADDRESS 
at 4 012737 003170 001110 sects MOV WTESTI,SLPERR | :SETUP ERROR LOOP ADDRESS 
003170 112737 000001 001102 " MOVB #1, STSTNM MOVE #1 TEST NUMBER 
003176 012706 001100 MOV WSTACK,SP ;SETUP THE STACK POINTER 
40 003202 012737 000001 001176 MOV #1,S$TIMES 3;D0 1 ITERATION 
ee :VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 
151 003210 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
003216 013737 001224 001234 MOV PORTA,PTNBR Move PURT ADDRESS 10 eigen FOR TYPEOUT 
003224 005760 000012 TST RMDS (RO) ;SEE IF DRIVE (PORT A) PRESENT 
0032350 005037 001244 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
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1 DRIVE ACCESS TEST SEQ 0030 
003234 016037 000010 001126 MOV ns be LFF SBODAT ;GET CONTENTS OF RMCS2 
003242 012737 000010 001122 MOV WRMCS2,$BDADR ;FORM REGISTER ng ts OF ERROR MESSAGE 
003250 060037 001122 ADD RO, SBDADR ;ADD_RH/RM BASE A oy 
003254 005037 001124 CLR SGDDAT sWHAT REGISTER SHO D BE 
003260 013737 001126 001164 MOV SBDDAT,STMPO MOVE REGISTER CONTENTS TO ‘STMPO' 
03266 042737 167777 001164 BIC M*CNED,STMPO ;SAVE SPECIFIED BITS 
003274 023737 001124 001164 CMP SGDDAT ,STMPO :COMPARE THE BITS 
003302 001414 BEQ 64$ BR IF OK 
003304 013737 001126 001174 MOV SBODAT ,STMP4 ;COPY "BAD DATA’ 
003312 042737 010000 001174 BIC WNED ,STMPG CLEAR THE MASKED BITS 
003320 053737 001174 001124 BIS STMP4 ,$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
003326 104001 EMT 1 
003330 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
003334 000240 64$: NOP 
003336 005737 001244 TST CKERR :WAS othe SET ? 
003342 001403 BEQ +10 : F NOT 
003344 012760 000040 000010 MOV WCLR,RMCS2(RO) ISSUE ging INIT TO CLEAR ‘NED* 
003352 113760 001226 000010 MOVB PORTB,RMCS2(RO) ';SELECT PORT B 
003360 013737 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO gigitr + TYPEOUT 
003366 005760 000012 TST RADS (RO) ;SEE IF DRIVE (PORT B) PRESENT 
003372 005037 001244 CLR CKE ;CLEAR THE "CHECK ERROR’ INDICATOR 
003376 016037 000010 001126 MOV RNCSS(ROD, SBDDAT ;GET CONTENTS OF RMCS2 
003404 012737 000010 001122 MOV WRMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
003412 060037 001122 ADD RO,S$BDADR ;ADD_RH/RM BASE ADDRESS 
003416 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
003422 013737 001126 001164 MOV SBDDAT ,STMPO sMOVE REGISTER CONTENTS TO "$STMPO' 
003430 042737 167777 001164 BIC M*CNED,STMPO ;SAVE SPECIFIED BITS 
03436 023737 001124 001164 CMP SGDDAT,$TMPO :COMPARE THE BITS 
003444 001414 BEQ 66$ :BR IF OK 
003446 013737 001126 001174 MOV SBDDAT,STMP4 :COPY "BAD DATA’ 
003454 042737 010000 001174 BIC ANED ,STMP4 ;CLEAR THE MASKED BITS 
pt ngs tees 001174 001124 rat henna: :'OR' WITH GOOD DATA FOR TYPEOUT 
003472 005137 001244 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
003476 000240 66$: NOP 
003500 005737 001244 TST CKERR sWAS "NED' SET ? 
003504 001403 BEQ -+10 :BR IF NOT 
152 003506 012760 000040 000010 MOV MCLR,RMCS2(RO) ;1SSUE MASSBUS INIT TO CLEAR ‘NED' 
4 ;CONFIRM THAT DRIVE IS AN RMOS, RMO3 OR RMO2 AND IS DUAL PORTED 
158 003514 113760 001224 000010 MOVB aothy RMCS2(RO) ;SELECT P 
003522 013737 001224 001234 MOV PORTA,PTNBR ;MOVE sey ADDRESS TO LOCATION FOR TYPEOUT 
003530 005037 001244 CLR CKERR ; CLEAR ae * CHECK me a INDICATOR 
0035 016037 000026 001126 MOV RMDT(RO),SBDDAT ;GET CONTENTS OF RMDT 
003542 012737 000026 001122 MOV — ,SBDADR ; FORM g br Ue ADDRESS OF ERROR MESSAGE 
003550 060037 001122 ADD DD _RH/RM BASE ADDRESS 
003554 012737 024027 001124 MOV HOSC097. SGDDAT ;WHAT REGISTER SHOULD BE 
003562 022737 024024 001126 CMP #024024, $BDDAT ; DUAL ,PORT RMO3 ? 
003570 001413 BEQ 68$ ;YES 
003572 022737 024025 001126 CMP #024025,$BDDAT DUAL "PORT RMO2 ? 
03600 001407 BEQ :YES 
003602 023737 001124 001126 CMP SGDDAT,SBDDAT 1S 1H REGISTER OK ? 
003610 001403 BEQ 68% :BR IF OK 
003612 104002 EMT 2 
003614 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
003620 000240 68$: NOP 


-. 
MACRO V03.01 11-APR=80 14:40:19 PAGE 8-5 


CZRMSAO RMOS/3/2 DU POR TST 2 
11 DRIVE ACCESS TEST 
003622 113760 001226 000010 MOVB _—s—PORTB, RMCS2(RO) “SELECT PORT B 
003630 013737 001226 001234 MOV PORTB,PTNBR > MOVE tn ADDRESS TO LOCATION FOR TYPEOUT 
003636 005037 001244 CLR CKERR sCLEAR THE ‘CHECK ine al INDICATOR 
003642 016037 000026 001126 MOV RMDT(RO),SBDDAT ;GET CONTENTS OF RMDT 
003650 012737 000026 001122 MOV + ru , SBDADR ; FORM REGISTER ADDRESS oe ERROR MESSAGE 
003656 060037 001122 ADD ADD RH/RM BASE ADDRESS 
003662 012737 024027 001124 MOV FOS bOT RGDDAT WHAT REGISTER SHOULD BE 
003670 022737 024024 001126 CMP #024024. $BDDAT :DUAL PORT RMO3 ? 
003676 001413 BEQ ‘YES 
003700 022737 024025 001126 CMP #024025, $BDDAT :DUAL "PORT RMO2 ? 
003706 001407 BEQ 70$ 
003710 023737 001124 001126 CMP $GDDAT,S$BDDAT Tg The REGISTER OK ? 
003716 001403 BEQ 70$ :BR IF OK 
003720 104002 EMT 2 
003722 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
a. 003726 000240 70$: NOP 
+ ;VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
166 003730 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
003736 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003744 005037 001244 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
003750 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
003756 012737 000012 001122 MOV #RMDS, $BDAD DR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
03764 060037 001122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
003770 012737 001000 001124 MOV #PGM.SGDDAT WHAT REGISTER SHOULD BE 
003776 013737 001126 001164 MOV SBDDAT,STMPO sMOVE REGISTER ae TO ‘STMPO' 
004004 042737 176777 001164 BIC #*CPGM,STMPO : SAVE SPECIFIED BITS 
004012 023737 001124 001164 CMP SGDDAT,$TMPO ; COMPARE THE BITS 
004020 001414 BEQ 72$ *BR IF OK 
004022 013737 001126 001174 MOV SBDDAT,STMP4 COPY ‘BAD DATA’ 
004030 042737 001000 001174 BIC #PGM,STMP4 ;CLEAR THE MASKED BITS 
004036 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
04044 104003 EMT 
004046 005137 001244 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
004052 000240 72$: NOP 
004054 005037 001244 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
004060 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
004066 012737 000012 001122 MOV #RMDS, SBOADR ; FORM y os! ye ADDRESS OF ERROR MESSAGE 
004074 060037 001122 ADD RO,SBDADR ADD RH/RM BASE bo be 
004100 012737 010600 001124 MOV WHOL !DPR DRY scpba ;WHAT REGISTER SHOULD BE 
004106 013737 001126 001164 MOV SBDDAT,$ OVE REGISTER yt gee TO "STMPO' 
004114 042737 167177 001164 BIC 7010000. STHPO SAVE SPECIFIED a $ 
004122 023737 001124 001164 CMP SGDDAT, STMPO ;COMPARE THE BITS 
004130 001414 BEQ 24$ BR IF OK 
413 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY ‘BAD DATA’ 
004140 042737 010600 001174 BIC #10600, STMP4 ;CLEAR THE MASKED BITS 
14 053737 001174 001124 BIS STMP4, $GDDAT "OR! WITH GOOD DATA FOR TYPEQOUT 
004154 104004 EMT 4 
004156 005137 001244 COM CKERR s;SET THE REGISTER COMPARE ERROR INDICATOR 
004162 000240 74$: NOP 
0041 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
004172 013737 001226 001234 MOV POR TB.PTNBR MOVE 4 ADDRESS TO LOCATION FOR TYPEOUT 
004200 005037 001244 CLR CKERR sCLEAR THE ‘CHECK mw ah INDICATOR 
004204 016037 000012 001126 MOV RMDS(RO),S$BDDAT ;GET CONTENTS OF 
004212 012737 000012 001122 MOV #RMDS, $BDA DR FORM REGISTER hoonese” os ERROR MESSAGE 
004220 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 
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CZRMSAO RMO5/3/2 DU POR 
11 DRIVE ACCESS TEST SEQ 0032 
004224 012737 001000 001124 MOV #PGM,SGDDAT ;WHAT REGISTER SHOULD BE 
004252 013737 001126 001164 MOV SBDDAT,$TMPO :MOVE REGISTER CONTENTS TO ‘STMPO' 
004240 042737 176777 001164 BIC #°CPGM,STMPO ;SAVE SPECIFIED BITS 
004246 023737 001124 001164 CMP SGDDAT,STMPO + le THE BITS 
004254 001414 BEQ 76$ BR IF OK 
004256 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA’ 
004264 042737 001000 001174 BIC #PGM, STMPG :CLEAR THE MASKED BITS 
004272 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
004300 104003 EMT 
004302 005137 001244 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
004306 000240 76$: NOP 
004310 005037 001244 CLR CKERR CLEAR THE ‘CHECK ose gl INDICATOR 
004314 016037 000012 001126 MOV ha AE, $BDDAT ';GET CONTENTS OF RMDS 
004322 012737 000012 001122 MOV RMDS , SBDADR ;FORM REGISTER oe aber OF ERROR MESSAGE 
004330 060037 001122 ADD RO. SBDADR ADD RH/RM BASE ADDRESS 
004334 012737 010600 001124 MOV MOL !DPRiDRY, SGDbAT WHAT REGISTER SHOULD BE ° 
004342 013737 001126 001164 MOV SBODAT ,STMPO ;MOVE REGISTER CONTENTS TO ‘STMPO' 
004350 042737 167177 001164 BIC #010600, STMPO ;SAVE SPECIFIED BITS 
004356 023737 001124 001164 CMP $GDDAT, $TMPO COMPARE THE BITS 
004364 001414 BEQ 78$ BR IF OK 
004366 013737 001126 001174 MOV SBDDAT,STMP4 :COPY "BAD DATA’ 
004374 042737 010600 001174 BIC #10600,$TMP4 :CLEAR THE MASKED B11S 
004402 053737 001174 001124 BIS STMP4,SGDDAT OR’ WITH GOOD DATA FOR TYPEOUT 
004410 104004 EMT 4 
004412 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
167 004416 000240 78$: NOP 
H+ | sVERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
170 004420 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
171 004426 016037 000030 001124 MOV RMSN(RO) ,$GDDAT STORE THE a A SERIAL NUMBER 
172 004434 113760 001226 000010 MOVB PORTB,RMCS2(RO) SELECT PORT B 
173 004442 016037 000030 001126 MOV RMSN(RO) ,SBDDAT ;STORE THE PORT B oe NUMBER 
174 004450 023737 001124 001126 CMP SGDDAT,SBDDAT  ;ARE THEY THE SAME 
175 004456 00140 BEQ 1$ ;BR IF THEY ARE 
176 004460 104005 EMT 5 
177 004462 032777 100000 174450 BIT #SW15,QSWR s;HALT ON ERROR ? 
178 004470 001001 BNE 1$ ;BR IF SET = PROGRAM HAS ALREADY HALTED 
179 004472 000000 HALT ;HALT, fees CABLE CONNECTION PROBLEM 
oat 004474 000004 1$: SCOPE ;LOOP ? 
215 
216 
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STEST 2 SET ‘vv' FOR PORT A 

*® 

SET VOLUME VALID 

ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 


te 

‘* 

**® 

ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 
ie THAT THE ‘VV' BIT 1S SET FOR PORT A. 

‘* 

‘* 

**® 

‘* 

*® 


o > 


C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 
a att Pines TO NEUTRAL AND THAT NEITHER ATTENTION 
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T2 SET ‘vv' FOR PORT A SEQ 0033 
,yeeeeeeeeeeeer eee eee eee eee eee KK eeeKeKeKKeKKKHARKeeeA eee Rees 
004476 TST: 
004476 005737 001266 TST KYBCTL 24 et te ONLY SINGLE TESTS ? 
004502 001406 BEQ 2$ NOT 
004504 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
004506 000137 002636 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
004512 012737 177777 001266 1S: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
004520 012737 004534 001106 2%: MOV MTEST2,$LPADR  ;SETUP SCOPE LOOP ADDRESS 
ope eee 012737 004534 001110 rest2 MOV WTEST2,$LPERR | ;SETUP ERROR LOOP ADDRESS 
004534 112737 000002 001102 MOVB #2,$TSTNM MOVE #2 TEST NUMBER 
004542 012706 001100 MOV WSTACK,SP ;SETUP THE STACK POINTER 
004546 012737 000001 001176 MOV #1, STIMES ;;D0 1 ITERATION 
004554 113760 001224 0000'0 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
004562 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3SET VOLUME VALUE FOR PORT 
004570 012760 000011 000000 MOV W11,RMCSIC(RO) ;ZISSUE A DRIVE CLEAR 
004576 012760 000021 00C000 MOV #21,RMCSi(RO) ;ISSUE A READIN PRESET 
004604 012760 010000 000032 MOV MFMT16,RMOF (RO) ;SET FMT16 
VERIFY THAT THE DRIVE STATUS IS CORRECT 
004612 005037 001244 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
004616 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
004624 012737 000012 001122 MOV WRMDS,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
004632 060037 001122 ADD RO, $BDADR ;ADD_RH/RM BASE ADDRESS 
004636 012737 011700 001124 MOV #MOL !PGM! DPR!DRY VV, $GDDAT ;WHAT REGISTER SHOULD BE 
004644 013737 001126 001164 MOV SBDDAT ,STMPO :MOVE REGISTER CONTENTS TO ‘STMPO" 
004652 042737 106077 001164 BIC #°C71700,$TMPO ;SAVE od Lhe BITS 
004660 023737 001124 001164 CMP SGDDAT, STMPO ;COMPARE THE BITS 
004666 001414 BEQ 64% BR IF OK 
004670 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA’ 
004676 042737 071700 001174 BIC #71700, $TMP4 ;CLEAR THE MASKED BITS 
004704 053737 001174 001124 BIS STMP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
004712 104010 EMT 10 
004714 005137 001244 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
004720 000240 64$: NOP 
RELEASE THE DRIVE FROM PORT A 
004722 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
004730 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004736 012760 000013 000000 MOV M13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
VERIFY THAT THE DRIVE IS IN NEUTRAL 
004744 005037 001250 CLR RELERR CLEAR THE ‘RELEASE ERROR ° INDICATOR 
004750 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
004756 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
004762 012737 011600 001124 MOV #MOL !PGM'DPR!DRY, *SGDDAT SS aaa CONSTANT 
004770 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT 
004776 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE “STATUS REGISTER FROM PORT A. 
005004 013737 001170 001164 MOV STMP2,$TMPO ;COPY IT INTO ‘STMP 
005012 0427357 100100 001164 BIC WATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
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Te SET "vv" FOR PORT A SEQ 0034 
005020 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
005026 016037 000012 001172 MOV RMDS(RO),STMPS GET THE DRIVE STATUS REGISTER FROM PORT 8B. 
005034 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO 'STMP1° 
005042 042737 100100 001166 BIC WATA‘VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
005050 023737 001164 001166 CMP STMPO,STMP1 :1S 1 HE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
005056 001006 BNE 66% ; F NOT 
005060 005737 001164 TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
005064 001037 BNE 68$ :BR IF NOT 
005066 104034 EMT 34 
005070 000137 005254 JMP 70$ sBYPASS THE REST OF THE CHECKS 
005074 013737 001170 001126 66$: MOV STMP2,SBDDAT :SET UP PUSSIBLE BAD DATA FOR ERROR MESSAGE 
005102 013737 001226 001234 MOV PORTB,PTNBR s SEIZING Ani IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005110 113760 001226 000010 MOVB PORTB,RMCS2(RO) * SELECT PORT B. 
005116 005737 001164 TST STMPO >SEE IF STATUS EQ 0 FROM PORT A. 
005122 001414 BEQ 67$ BR IF ZERO 
005124 013737 001224 001234 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005132 013737 001172 001126 MOV STMP3,SBDDAT :"BAD DATA’ FOR ERROR TYPE OUT 
005140 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
005146 005737 001166 TST STMP1 :SEE IF STATUS "EQ ZERO FROM PORT B. 
005152 001004 BNE 68$ BR IF NO 
005154 012737 177777 001250 67$: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
005162 104036 EMT 36 
005164 013737 001170 001126 68$: MOV STMP2,$BDDAT LOOK FOR BIT —— WHEN RMDS READ 
005172 013737 001224 001234 MOV PGRTA,PTNBR bm PORT NUMBER 
005200 042737 100100 001170 BIC MATA!VV,STMP2 ;DON'T CHECK ATIN BIT OR vv BIT 
05206 023737 001124 001170 CMP SGDDAT ,STMP2 ALL _BITS OK 
005214 001401 BEQ 69$ :BR IF OK PROM PORT A. 
005216 104037 EMT 37 
005220 013737 001172 001126 69S: MOV STMP3,SBDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
005226 013737 001226 001234 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
005234 042737 100100 001172 BIC MATA‘VV,$TMP3 = ;DON'T CHECK ATTN BIT OR vv BIT 
005242 023737 001124 001172 CMP SGDDAT,STMP3 SEE IF READ OK FROM PORT B. 
005250 001401 BEQ 70$ :BR IF OK 
005252 104037 EMT 37 
005254 000240 70$: NOP 
217 005256 000004 SCOPE ;LOOP ? 
PRE AAKERAEeeeeeeeeeee ee KeeKKeKKeKKKKKe Kee 
: TEST 3 SET ‘vv' FOR PORT B 
SET VOLUME VALID 
te A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
-* 
:* B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
3 THAT THE ‘VV" BIT IS SET FOR PORT B. 
:* (C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 
7° Lb rig RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
-* 
-* 
PI IITITIIII TTI I TILT itii litt iiiii iii iiiii iii ii 
005260 TST3: 
005260 005737 001266 TST KYBCTL ee ONLY SINGLE TESTS ? 
005264 001406 BEQ 2% NOT 
005266 100002 BPL 1$ :BR IF JUST ENTERED TEST 


005270 000137 002636 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
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13 FOR PORT B SEQ 0035 
005274 012737 177777 001266 18: MOV #-1 ,KYBCTL SET SINGLE TEST INDICATOR 
005302 012737 005316 001106 2$: MOV MTEST3,$LPADR  ;SETUP SCOPE LOOP ADDRESS 
geeeie 012737 005316 001110 rests MOV MTESTS,SLPERR ;SETUP ERROR LOOP ADDRESS 
005316 112737 000003 001102 MOVB #3, STSTNM sMOVE #3 TEST NUMBER 
005324 012706 001100 MOV MSTACK,SP ;SETUP THE STACK POINTER 
0053530 012737 000001 001176 MOV #1 ,STIMES ;;D0 1 ITERATION 
005336 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
005344 013757 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;SET VOLUME VALUE FOR PORT 
005352 012749 000011 000000 MOV W11,RMCSI1(RO) ;ISSUE A DRIVE CLEAR 
005360 012:60 000021 000000 MOV #21,RMCS1(RO) ISSUE A READIN PRESET 
005366 012760 010000 000032 MOV #FMT16,RMOF (RO) ;SET FMT16 
VERIFY THAT THE DRIVE STATUS IS CORRECT 
005374 005037 001244 CLR CKERR CLEAR THE ‘CHECK ag INDICATOR 
005400 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
05406 012737 000012 001122 MOV #RMDS , SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
005414 060037 001122 ADD RO, SBOADR ADD RH/RM BASE ADDRESS 
005420 012737 011700 001124 MOV #MOL 'PGM!DPR!DRY! VV, SGDDAT ;WHAT REGISTER SHOULD BE 
005426 013737 001126 001164 MOV SBDDAT ,STMPO :MOVE REGISTER a ott i TO 'STMPO' 
005434 042737 106077 001164 BIC #°C71700,$TMPO SAVE SPECIFIED BITS 
005442 023737 001124 001164 CMP S$GDDAT,STMPO :COMPARE THE BITS 
005450 001414 BEQ 64$ BR IF OK 
005452 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA’ 
005460 042737 071700 001174 BIC #71700, STMP4 :CLEAR THE MASKED BITS 
005466 053737 001174 001124 BIS STMP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TyYPEOUT 
005474 104010 EMT 10 
005476 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
005502 000240 64$: NOP 
sRELEASE THE DRIVE FROM PORT B 
005504 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
005512 013737 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005520 012760 000013 000000 MOV W13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
VERIFY THAT THE DRIVE IS IN NEUTRAL 
005526 005037 001250 CLR RELERR CLEAR THE "RELEASE ERROR ° INDICATOR 
005532 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
005540 060037 001122 ADD R ADR [ADD THE 1/0 BASE ADDRESS 
005544 012737 011600 001124 MOV #MOL 'PGM'DPR!DRY.SGDDAT we aaaae CONSTANT 
005552 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
005560 016037 000012 001170 MOV RMDS(RO),S$TMP2 :GET THE DRIVE. "STATUS REGISTER FROM PORT A. 
005566 013737 001170 001164 MOV STMP2, STMPO COPY IT INTO *STMPO’ 
005574 042737 100100 001164 BIC WATA!VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
005602 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 
005610 016037 000012 001172 MOV RMDS(RO),STMP3 ;GET THE DRIVE "STATUS REGISTER FROM PORT B. 
005616 013737 001172 001166 MOV STMPS,STMP1 COPY IT INTO "STMP1' 
005624 042737 100100 001166 BIC WATA'VV,STMP1 © ;CLEAR PORT DEPENDENT BITS FROM THE C 
005632 023737 001164 001166 CMP $TMPO,STMPI 31S THE STATUS REGISTER THE SAME FROM oBOTH PORTS ? 
005640 001006 BNE 66% :BR IF NOT 
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CZRMSAO ot etd DU POR is 2 


"vv" FOR PORT B 
005642 005737 001164 
005646 001037 
005650 104034 
005652 000137 006036 
005656 013737 001170 
005664 013737 001226 
005672 113760 001226 
005700 005737 001164 
905704 001414 
005706 013737 001224 
005714 013737 001172 
005722 113760 001224 
005730 005737 001166 
005734 001004 

05736 012737 177777 
005744 104036 
005746 013737 001170 
005754 013737 001224 
005762 042737 100100 
005770 023737 001124 
005776 001401 
006000 104037 
006002 013737 001172 
006010 013737 001226 
006016 042737 100100 
006024 023737 001124 
006032 001401 
006034 104037 
006036 000240 
006040 000004 

218 

223 

275 
006042 
006042 005737 001266 
006046 140 
006050 100002 
006052 0137 002636 
006056 012737 177777 
006064 012737 006100 
006072 012737 006100 
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SEQ 0036 
TST $TMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 68$ ‘BR IF NOT 
EMT 34 
JMP 70$ ;BYPASS THE REST OF THE CHECKS 
001126 66$: MOV STMP2,SBDDAT 3SET UP peat ae BAD DATA FOR ERROR MESSAGE 
001234 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
TST STMPO :SEE IF STATUS EQ 0 FROM PORT A, 
BEQ ;BR IF ZERO 
001234 MOV PORTA, coneat sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
001126 MOV STMP3,$BDD ;'BAD DATA‘ = ERROR TYPE OUT 
000010 MOVB PORTA, RCS CRO) sSELECT PORT 
TST STMP1 sSEE IF STATUS’ EQ ZERO FROM PORT B. 
BNE 68$ 3;BR IF NOT 
001250 67$: cay ae SET "RELEASE ERROR’ INDICATOR 
001126 68$: MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
001234 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
001170 BIC MATA'VV,STMP2 ;DON'T ge ATIN BIT OR VV BIT 
001170 CMP SGDDAT,STMP2 ALL BITS O 
cat 63s ;BR IF OK PROM PORT A. 
001126 69%: MOV STMP3,SBDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
001234 MOV PORTB.PTNBR ; CHANGE PORT NUMBER 
001172 BIC MATA'VV,STMP3 ;DON'T CHECK ATTN BIT OR vv BIT 
1172 CMP $GDDAT, $TMP3 SEE IF READ OK FROM PORT 8B. 
BEQ 70$ 3;BR IF OK 
EMT 37 
70$: NOP 
SCOPE ;LOOP ? 
PREAH KAKKKKeTeeee eee Kee tee ees 
:#TEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 
; MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 
* A. WRITE O'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
;* DRIVE HAS BEEN SEIZED. 
** 
3* B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
7* ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 
i 
eo 6¢, op te. a THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
o* 
Pt eee eee ee 
TST4: 
TST KYBCTL sree grees ONLY SINGLE TESTS ? 
BEQ 2$ NOT 
BPL 1$ ‘BR If JUST ENTERED TEST 
JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
001266 1$: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
001106 2%: MOV MTEST4,$LPADR ;SETUP SCOPE LOOP ADDRESS 
001110 MOV MTESTG,SLPERR ;SETUP ERROR LOOP ADDRESS 


CZRMSAO my tot G DU POR TST 2 
14 E THE TIMEOUT ONE=SHOT THROUGH PORT A 


006100 

006100 112737 
006106 012706 
006112 012737 
006120 005037 
006124 005037 
006130 005037 
006134 012737 
006142 113760 
006150 013737 
006156 005060 
006162 113760 
006170 013737 
006176 013737 
006204 016037 
006212 010037 
006216 062737 
006224 005037 


006242 000137 
006246 

006246 113760 
006254 013737 
006262 016037 
006270 012737 
006276 013737 
006504 005137 
006310 013737 
006316 043737 
006324 023737 


006336 000240 


006340 


006412 


000004 
001100 
000001 


001256 
001260 


006756 
001224 


001124 


001226 
001226 
000012 


001254 
006430 
001252 
013572 


001260 
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TEST4: 
001102 MOVB #4, STSTNM sMOVE #4 TEST NUMBER 
MOV MSTACK,SP ;SETUP THE STACK POINTER 
001176 MOV #1,STIMES 37D0 1 ITERATION 
CLR TIMEA ;CLEAR THE TIMEOUT VALUE ane LOCATION 


CLR TIMEAP ;CLEAR THE + 25% TOLERANCE LOCATIO 
;START THE TIMER 


CLR TIME ;CLEAR THE ELAPSED iy COUNTER 
001254 MOV #2000. ,WATCH SET WATCH TO 2000. 
7SEIZE THE DRIVE THROUGH PORT A 
000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
001236 MOV PORTA SEIZPT 3ST TORE SEIZING PORT'S ADDRESS 
CLR RMDS (RO) ;WRITE + tie 
000010 MOVB PORTB, RMCS2(RO) ; SELECT TB 
001234 MOV PORTB, or ;MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001240 MOV PORTB,O ; OPPOSITE’ PORT ADDRESS 
001126 MOV RADSCROD. _SEDDAT iSEE a et he Ratti BY PORT A 
MOV RO, $BDADR M BASE A 
001122 ADD #RADS, $SBDADR i CENERATE BAD REGISTER attain 
CLR $GDDAT *REGISTER SHOULD BE ZERO 
001126 CMP SGDDAT,SBDDAT :1S THE REGISTER ZERO 
BEQ 64% :BR IF IT IS 
EMT 30 
- JMP 4$ ;BYPASS REST OF THE SUBTEST 
000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
001124 MOV #MOL !PGM'DPR!DRY! VV, $GDDAT sEXPECTED STATUS 
001166 MOV SGDDAT,STMP1 ;USE G00D DATA AS A MASK 
COM $STMP1 ;COMPLEMENT THE EXPECTED STATUS 
001164 MOV SBDDAT,STMPO ;SAVE THE ACTUAL STATUS 
001164 BIC STMP1,S$TMPO ;CLEAR UNWANTED BITS 
001164 CMP $GDDAT,STMPO TARE THE surecsee STATUS BITS SET ? 
BEQ 65$ ;BR IF THEY ARE 
EMT 31 
65$: NOP 
;WAIT FOR PORT A TO TIMEQUT 
000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
1$: TST RMDS (RO) sWAIT FO® THE DRIVE TO TIMEOUT 
BNE 2% 3BR — YiNeout OCCURS 
TST WATCH ;CHECK WATCH 
ey me ‘BR IF NOT ZERO 
JMP 3$ sBYPASS THE REST OF THE TEST 
001256 28: MOV TIME, TIMEA :SAVE THE ELAPSED TIME FOR PORT A 
JSR R5,TOLER :CALCULATE THE TOLERANCE 
-WORD TIMEA > TIMEOUT VALUE FOR PORT A 
MOV (SP)+, TIMEAP 425% TOLERANCE 


SEQ 0037 
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14 MEASURE THE TIMEOUT ONE=SHOT THROUGH PORT A SEQ 0038 


sVERIFY THAT THE TIMEOUT ONE=SHOT VALUE IS AT LEAST 500 MS 


006416 023727 001256 000764 CMP TIMEA, #500. 31S TIMEOUT VALUE AT LEAST 500 MS ? 
006424 103001 BHIS 3$ :BR IF IT IS 
006426 104007 EMT 7 


;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 


006430 3$: 
>VERIFY THAT THE DRIVE IS IN NEUTRAL 
006430 005037 001250 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
006434 012737 000012 001122 MOV #RMDS , SBDADR i FORM THE ADDRESS OF RMDS FOR TYPEOUT 
006442 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
006446 012737 011700 001124 MOV #MOL |PGM!DPR!DRY i VV,SGDDAT : COMPARISON CONSTANT 
006454 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
006462 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE. STATUS REGISTER FROM PORT A. 
006470 013737 001170 001164 MOV STMP2,STMPO ‘COPY IT INTO 
006476 042737 100100 001164 BIC #ATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
006504 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
006512 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE PORIVE STATUS REGISTER FROM PORT B. 
006520 013737 001172 001166 MOV STMP3,$TMP1 :COPY IT INTO '$TMP1" 
006526 042737 100100 001166 BIC #ATA'VV,STMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
06534 023737 001164 001166 CMP STMPO, $TMP1 [1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
006542 001006 BNE 66$ ‘BR IF NOT 
006544 005737 001164 TST $TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
006550 001045 BNE 68$ :BR IF NOT 
006552 104034 EMT 34 
006554 000137 006754 JMP 70$ :BYPASS THE REST OF THE CHECKS 
006560 013737 001170 001126 66%: MOV STMP2,SBDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
006566 013737 001226 001234 MOV PORTB,PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
006574 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B. 
006602 005737 001164 TST $TMPO ‘SEE IF STATUS EQ 0 FROM PORT A. 
006606 001414 BEQ 7$ ‘BR IF ZERO 
006610 013737 001224 001234 MOV PORTA, PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
16 013737 001172 001126 MOV STMP3,$BDDAT |; "BAD DATA’ FOR ERROR TYPE OUT 
006624 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT A 
006632 005737 001166 TST STMP1 SEE IF STATUS’ EQ ZERO FROM PORT B. 
001012 BNE 68$ ‘BR IF NOT 
006640 012737 177777 601250 67%: MOV #-1,RELERR [SET "RELEASE ERROR’ INDICATOR 
06646 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 
006654 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
006662 104035 EMT 35 
006664 013737 001170 001126 68%: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
672 013737 0012246 001234 MOV PORTA.PTNBR i CHANGE PORT NUMBER 
006700 042737 100000 001170 BIC #ATA, $TMP2 “DON'T CHECK THE ATTN BIT 
706 023737 001124 001170 CMP SGDDAT,STMP2 ALL BITS O 
06714 001401 BEQ 69$ 7BR IF OK PROM PORT A. 
006716 104037 EMT 37 
006720 013737 001172 001126 69$: MOV STMP3,SBDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
726 013737 001226 001234 MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
006734 042737 100000 001172 BIC HATA, STMP3 ‘DON'T CHECK THE ALIN BIT 
006742 023737 001124 001172 CMP SGDDAT,STMP3 =: SEE_IF READ OK FROM PORT B. 
006750 001401 BEQ 70$ “BR IF OK 
006752 104037 EMT 37 
006754 000240 70$: NOP 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 


001266 
001106 
001110 
001102 


001176 


001254 


000010 
001236 


000010 


001126 
001122 
001126 


000010 


4$: SCOPE ;LOOP ? 


SRR RAE AEE RARE AEE EEE REET EAEA AAA EAAATRAAHEARARERTHAREH ERA Ae 


:FTEST 5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 
; *MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 


ce A. WRITE O'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 
ze DRIVE HAS BEEN SEIZED. 
53@ 
:* B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ie ONE=SHOT AND SAVE THE VALUE FOR LATER USE. 
“© 
:* (€, VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
ze TO NEUTRAL 
*® 
jj eeReeeneeneennenerrnrerererenennenteneneneceneenenereneereneens 
S15: 

TST KYBCTL :PERFORMING ONI.Y SINGLE TESTS ? 

BEQ 2$ <BR IF NOT 

BPL 1$ ‘BR IF JUST ENTERED TEST 

JMP EXEC SRETURN & GET|NEXT TEST NUMBER 
1$: MOV #-1, KYBCTL ‘SET SINGLE TEST INDICATOR 
2$: MOV #TESTS,SLPADR SETUP SCOPE LOOP ADDRESS 
eae MOV WTESTS.SLPERR SETUP ERROR LOOP ADDRESS 

"Move #5, $TSTNM :MOVE #5 TEST NUMBER 

MOV #STACK, SP ‘SETUP THE STACK POINTER 

MOV #1, $TIMES ':D0 1 ITERATION 

CLR TIMEB SCLEAR iHE TIMEOUT VALUE STORAGE LOCATION 


CLR TIMEBP ;CLEAR THE + 25% TOLERANCE LOCATION 
START THE TIMER 


CLR TIME CLEAR THE ELAPSED TIME COUNTER 
MOV #2000. ,WATCH SET WATCH 10/2000. MS 


SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT 
MOV ety. tert cape, Mf ttl ORT'S ADDRESS 


R iW 
MOVB PORTA, RMCS2(RO) ;SELECT PORT 
MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


MOV PORTA, OPPRT :OPPOSITE' PORT ADDRESS 

MOV RMDS (RO) , SBDDAT 3 SEE IF DRIVE | SEIZED BY PORT B 
MOV RO, SBDADR >RH/RM BASE ADDRESS 

ADD #RMDS, SBDADR :GEN ERATE BAD REGISTER ADDRESS 
CLR $GDDAT :REGISTER SHOULD BE ZERO 

CMP SGDDAT,S$BDDAT 1S THE REGISTER ZERO 

BEQ 64$ :BR IT IS 

EMT 30 

JMP 4$ :BYPASS REST/OF THE SUBTEST 


64%: 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 


SEQ 0039 


B 
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15 MEASURE THE TIMEOUT ONE=SHOT THROUGH PORT B SEQ 0040 


097172 013737 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
007200 016037 000012 001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
007206 012737 011700 0u1124 MOV #MOL!PGM'DPR!DRY!VV,S$GDDAT sEXPECTED STATUS 
07214 013737 001124 001166 MOV peoeet STMP1 7 USE GOOD DATA AS A MASK 
007222 005137 001166 COM MP1 PLEMENT THE EXPECTED STATUS 
007226 013737 001126 001164 MOV SBDDAT STMPO =: SAVE _THE ACTUAL STAT 
007234 043737 001166 001164 BIC STMP1,$TMPO ‘CLEAR UNWANTED BITS 
007242 023737 001124 001164 CMP $GDDAT, STMPO ;ARE THE EXPECTED STATUS BITS SET ? 
007250 001401 BEQ 65$ ‘BR IF THEY ARE 
007252 104031 EMT 3] 
007254 000240 65$: NOP 
;WAIT FOR PORT B TO TIMEOUT 
007256 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
007264 013737 001224 001234 MOV PORTA,PTNBR :MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
007272 005760 000012 1$: TST RMDS (RO) WAIT FOR THE DRIVE TO TIMEOUT 
007276 001006 BNE 2$ BR WHEN TIMEOUT OCCURS 
007300 005737 001254 TST WATCH “CHECK WATCH 
007304 001372 BNE 1$ ‘BR IF NOT ZERO 
007306 104006 EMT 
007310 000137 007346 JMP 3$ :BYPASS THE REST OF 1HE TEST 
007314 013737 001252 001262 28: MOV TIME, TIMEB ;SAVE THE ELAPSED TIME FOR PORT B 
007322 004537 013572 JSR R5, TOLER ;CALCULATE THE TOLERANCE 
007326 001262 . WORD TIMEB ; TIMEOUT VALUE FOR PORT B 
007330 012637 001264 MOV (SP)+, TIMEBP 425% TOLERANCE 
;VERIFY THAT THE TIMEOUT ONE=.HOT VALUE IS AT LEAST 500 MS 
007334 023727 001262 000764 CMP TIMEB,#500. 31S TIMEOUT VALUE AT LEAST 500 MS ? 
007342 103001 BHIS 38 ‘BR IF IT IS 
007344 104007 EMT 
. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 
007346 3$: 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 
007346 005037 001250 CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 
007352 012737 000012 001122 MOV #RMDS,SBDADR + FORM THE ADDRESS OF RMDS FOR TYPEOUT 
007360 060037 001122 ADD RO,$ DA DR ADD THE I/0 BASE ADDRESS 
07364 012737 011700 001124 MOV #MOL'PGM!DPRIDRYI VV, SGDDAT  atrhreacaa CONSTANT 
007372 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORTA 
07400 016037 000012 001170 MOV RMDS(RO) ,STMP2 sGET THE DRIVE STATUS REGISTER FROM PORT A. 
7406 013737 01170 001164 MOV STMP2,STMPO sCOPY IT INTO ‘STMPO' 
007414 042737 100100 001164 BIC MATA'VV,STM *CLEAR PORT DEPENDENT BITS FROM THE COPY 
007422 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
007430 016037 00012 001172 MOV RMDS(RO), STMP3 GET THE DRIVE STATUS REGISTER FROM PORT B 
007436 013737 001172 001166 MOV STMP3,S$TMP1 COPY IT INTO '$STMP1" 
007444 042737 100100 001166 BIC WATA‘VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
00745 023737 001164 001160 CMP STMPO,STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
007460 001006 BNE 66$ ‘BR IF NOT 
007462 005737 001164 TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
007466 001045 BNE 68$ ‘BR IF NOT 
007470 104034 EMT 34 
007472 000137 007672 JMP 70% ;BYPASS THE REST OF THE CHECK 
007476 013737 001170 001126 663: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ROR MESSAGE 
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15 MEASURE THE TIMEOUT ONE=SHOT THROUGH PORT B SEQ 0041 
007504 013737 001226 001234 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007512 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT 
007520 005737 001164 TST STMPO ‘SEE IF STATUS EQ 0 FROM PORT A. 

007524 001414 BEQ 67$ ‘BR IF ZERO 
007526 013737 001224 001234 MOV PORTA, PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007534 013737 001172 001126 MOV STMP3,$BDDAT | :'BAD DATA’ FOR ERROR TYPE OUT 
007542 113760 224 000010 MOVB PORTA, RMCS2(RO) :SELECT POR 
007550 005737 001166 TST STMP1 SEE IF STATUS’ EQ ZERO FROM PORT B. 
007554 001012 BNE 68$ :BR IF NO 
007556 012737 177777 001250 67%: MOV #-1,RELERR 'SET "RELEASE ERROR' INDICATOR 
007564 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 
007572 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
007600 104035 EMT 35 
007602 013737 001170 001126 68$: MOV STMP2,$BDDAT | ;LOOK FOR BIT FAILURES WHEN RMDS READ 
007610 013737 001224 001234 MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
007616 042737 100000 001170 BIC HATA, $TMP2 ‘DON'T CHECK THE ATIN BIT 
007624 023737 001124 001170 CMP $GDDAT, STMP2 ALL BITS OK 
007632 001401 BEQ 69$ ;BR IF OK PRON PORT A 
007634 104037 EMT 37 
007636 013737 001172 001126 69$: MOV STMP3,SBDDAT ; CHECK RMDS or BIT FAILURES = FROM PORT B. 
007644 013737 001226 001234 MOV PORTB,PTNBR 3CH HANGE PORT NUMBER 
007652 042737 100000 001172 BIC MATA, STMP3 ;DON'T CHECK THE ATTN BIT 
007660 023737 001124 001172 CMP SGDDAT,STMP3 ‘SEE IF READ OK FROM PORT 8B. 
007666 001401 BEQ 70$ ‘BR IF OK 
007670 104037 EMT 37 
007672 000240 70$: NOP 
277 007674 000004 4$: SCOPE ;LOOP ? 
278 
295 
296 EPSPS SSLS SESSA SESE SEE SEES ESET ETT SCTE TET TPCT CTC TTP ETT TT SD 
T*TEST 6 TEST "CONTROLLER SELECT’ SWITCH, DRIVE CYCLED UP 
7a 
seTEST THE OPERATION OF THE ‘CONTROLLER SELECT’ SWITCH (DRIVE CYCLED UP). 
e A. SWITCH TO CONTROLLER 'A’ POSITION. VERIFY THAT THE DRIVE IS IN 
3* NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
:* PORTS, ARE CORRECT. 
*® ° 
:* B. SWITCH TO CONTROLLER ‘B'’ POSITION. VERIFY THAT THE DRIVE IS IN 
:* NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
7% PORTS, ARE CORRECT. 
**® 
s* C. RETURN THE ‘CONTROLLER SELECT’ SWITCH TO THE ‘A/B* POSITION. VERIFY 
7 THE DRIVE STATE. 
*® 
:: TAR RARBRSABSASZASAAAALAELALAESZEESZAEEASERE SEA EEEEEEE ESE REESE REESE RRR RSS 
007676 TST6: 
007676 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
007702 001406 BEQ 2$ ‘BR IF NOT 
007704 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
007706 000137 002636 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
007712 012737 177777 001266 15: MOV #-1, KYBCTL :SET SINGLE TEST INDICATO 
007720 012737 007734 001106 2$: MOV MTEST6,SLPADR :SETUP SCOPE LOOP ADDRESS 
007726 012737 007734 001110 oa MOV WTESTO.S$LPERR :SETUP ERROR LOOP ADDRESS 
007734 112737 000006 001102 MOVB #6, STSTNM sMOVE #6 TEST NUMBER 
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16 TEST “CONTROLLER SELECT’ SWITCH, DRIVE CYCLED U SEQ 0042 

007742 012706 001100 MOV ASTACK,SP ;SETUP THE STACK POINTER 

- 007746 012737 000001 001176 MOV #1, STIMES *:D0 1 ITERATION 

298 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
007754 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
007762 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE 
007766 012760 000011 000000 MOV #11,RMCS1(RO)  SISSUE DRIVE CLEAR 
007774 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
010002 113760 001226 000010 MOVB PORTB, RMCS2(RO) ;SELECT PORT #B 
010010 005060 000012 CLR RMDS ( (RO) ‘SEIZE THE DRIVE — PORT ‘B' 
010014 012760 000011 000000 MOV W11,RMCS1(RO) ISSUE DRIVE CLEAR 
010022 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 

299 010030 104401 017352 TYPE ,SWTCHA :SWITCH TO ‘A’ 

300 010034 104401 017516 TYPE »CONTUE PRESS *CONTINUE' 

301 010040 000000 HALT 

303 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
010042 005037 001250 CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 
010046 012737 000012 001122 MOV #RMDS ,,SBDADR :FORM THE ADDRESS OF yt FOR TYPEOUT 
010054 060037 001122 ADD RO, SBDADR THE 1/0 BASE ADDRESS 
010060 012737 011700 001124 MOV SROL'PGRSDPR!DRYIVy” SGDDAT ;COMPARISON CONSTANT 
010066 113760 001224 000010 MOVB PORTA, pe sf SSELECT PORT A. 
010074 016037 000012 001170 MOV RMDS(RO),$T MP2 :6 GET THE DRIVE Lb REGISTER FROM PORT A. 
010102 013737 001170 001164 MOV STMP2, SThPO. sCOPY IT INTO ‘STM 
010110 042737 100100 001164 BIC #ATA'VV, STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
010116 113760 001226 000010 MOVB PORTB, RACS2 (RQ) sSELECT PORT B. 
010124 016037 000012 001172 MOV RMDS(R RO), STMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
010132 013737 001172 001166 MOV STMP3,$T MP1 ;COPY IT INTO ‘STMP1° 
010140 042737 100100 001166 BIC MATA'VV,STMP1 ‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
010146 023737 001164 001166 CMP STMPO,STMP1 21S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
010154 001006 BNE 64% F NOT 
010156 005737 001164 TST STMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
010162 001045 BNE 66$ [BR IF NOT 
010164 104034 EMT 34 
010166 000137 010366 JMP 68% sBYPASS THE REST OF THE CHECKS 
010172 013737 001170 001126 64$: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
010200 013737 001226 001234 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010206 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT 
010214 005737 001164 TST STMPO sSEE IF STATUS "EQ QO FROM PORT A. 
010220 001414 BEQ 65$ ‘BR IF ZERO 
010222 013737 001224 001234 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010230 013737 001172 001126 MOV STMP3,SBDDAT ;"BAD DATA’ rr ERROR TYPE OUT 
010236 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
010244 005737 001166 TST STMP1 sSEE IF STATUS. EQ ZERO FROM PORT B. 
010250 001012 BNE 66$ :BR IF NOT 
010252 012737 177777 001250 65$: MOV #-1,RELERR [SET "RELEASE ERROR' INDICATOR 
010260 012760 000011 000000 MOV W11,RMCS1(RO) [CLEAR THE DRIVE 
010266 012760 000013 000000 MOV #13,RMCS1(RO) sRELEASE THE DRIVE 
010274 104017 EMT 17 
010276 013737 001170 001126 66%: MOV STMP2,SBDDAT :100K FOR BIT FAILURES WHEN RMDS READ 
010304 013737 001224 001234 MOV PORTA,PTNBR ee PORT NUMBER 
010312 042737 100000 091170 BIC HATA, STMP2 DON'T CHECK THE ATIN BIT 
010320 023737 001124 001170 CMP S$GDDAT, STMP2 ALL BITS OK 
010326 001401 BEQ 67$ ;BR IF OK hon PORT A. 
010330 104037 EMT 37 


~ 
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EST ‘CONTROLLER SELECT’ SWITCH, DRIVE CYCLED uP SEQ 0043 
10332 013737 001172 001126 67%: Mov STMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
10340 013737 001226 001234 MOV PORTB.PTNBR ; CHANGE PORT NUMBER 
10346 042737 100000 001172 BIC HATA, STMP3 ‘DON'T CHECK THE ATTN BIT 
10354 023737 001124 001172 CMP SGDDAT,STMP3 SEE IF READ OK FROM PORT B. 
10362 001401 BEQ 68$ 'BR IF OK 
10364 104037 EMT 37 
10366 000240 68$: NOP 
10370 104401 017434 TYPE  ,SWTCHB :SWITCH TO 'B’ 
10374 104401 017516 TYPE ; CONTUE :PRESS 'CONTINUE’ 
10400 000000 HALT 
;VERIFY THAT THE DRIVE 1S IN NEUTRAL 
010402 005037 001250 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
010406 012737 000012 001122 MOV #RMDS,SBDADR §:FORM THE ADDRESS OF pens FOR TYPEOUT 
010414 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
010420 012737 011700 001124 MOV #MOL 'PGM'DPR!DRY!VV.SGDDAT COMPAR] SON CONSTANT 
010426 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
010634 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
010442 013737 001170 001164 MOV STMP2,$TMPO :COPY IT INTO ‘$TMPO' 
010450 042737 100100 001164 BIC #ATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
010456 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
010464 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
010672 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO "$STMP1' 
010500 042737 100100 001166 BIC WATA'VV,STMP1 = CLEAR PORT DEPENDENT BITS FROM THE COPY 
010506 023737 001164 001166 CMP STMPO,STMP1 :1$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
010514 001006 BNE 69$ [BR IF NOT 
010516 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
010522 001045 BNE 71$ [BR IF NOT 
010524 104034 EMT 34 
010526 000137 010726 JMP 73$ :BYPASS THE REST OF THE CHECKS 
010532 013737 001170 001126 69$: MOV $TMP2, SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
010540 013737 001226 001234 MOV PORTB.PTNB :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010546 113760 001226 000010 MOVB PORT, RACES (RO) [SELECT PORT B. 
010554 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
010560 001414 BEQ 70$ :BR IF ZERO 
010562 013737 001224 001234 MOV PORTA, PTNBR 7SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010570 013737 001172 001126 MOV STMP3,$BDDAT :'BAD DATA’ FOR ERROR TYPE OUT 
010576 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
010604 005737 001166 TST STMP1 SEE IF STATUS’ EQ ZERO FROM PORT B. 
010610 001012 BNE 71$ ‘BR IF NOT 
010612 012737 177777 001250 70$: Mov #-1,RELERR TSET "RELEASE ERROR’ INDICATOR 
010620 012760 000011 000000 MOV #11,RMCS1(RO) [CLEAR THE DRIVE 
010626 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
010634 104020 EMT 20 
010636 013737 001170 001126 71%: Mov STMP2,SBDDAT LOOK FOR BIT FAILURES WHEN RMDS READ 
010644 013737 001224 001234 MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
010652 042737 100000 001170 BIC HATA, STMP2 :DON'T CHECK THE ATTN BIT 
010660 023737 001124 001170 CMP SGDDAT,STMP2 ALL BITS OK 
010666 001401 BEQ 72$ :BR IF OK PRON PORT A. 
010670 104037 EMT 37 
010672 013737 001172 001126 72%: Mov STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
010700 013737 001226 001234 MOV PORTB.PTNBR CHANGE PORT NUMBER 
010706 042737 100000 001172 BIC HATA, STMP3 [DON'T CHECK THE ATIN BIT 
010714 023737 001126 001172 CMP SGDDAT,STMP3 SEE IF READ OK FROM PORT B. 
010722 001401 BEQ 73$ “BR IF OK 
010726 104037 EMI 37 
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TEST ‘CONTROLLER SELECT’ SWITCH, DRIVE CYCLED uP SEQ 0044 
010726 000240 738: NOP 
309 010730 005737 001266 1ST KYBCTL s SINGLE aa MODE ? 
310 010734 14 BEQ 1$ ‘BR IF 
311 010736 104401 017264 TYPE | SWTCHN :RETURN SuITCH TO 'A/B' 
ai 010742 000004 1$: SCOPE ; LOOP 
445 
446 
REAR RAEEERREEEEEE EEE ERAEEKEKATEKTT eee Ree eres 
:FTEST 7 TEST "CONTROLLER SELECT’ SWITCH ON PORT A 
:*TEST THE OPERATION OF THE "CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN’. 
fe A. CYCLE THE DRIVE DOWN. 
:* B. SWITCH TO CONTROLLER A POSITION. VERIFY THAT THE DRIVE IS IN 
ie NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
ie PORTS, ARE CORRECT. 
:* (C. SWITCH THE "CONTROLLER SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 
-* 
t* D. WHEN THE DRIVE CYCLES UP, VERIFY THAT 'VV=A 1S RESET, AND 
te THAT ‘ATA=A IS SET 
*® 
te OE, ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
*“® 6 
-* 
i* F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
ie "NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
ie PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING 0'S 
ie INTO RMDS THROUGH PORT B. 
*“*® 
t*® G. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
ie DRIVE REMAINS LOCKED ON PORT A. 
ME IITITITITITTITILI TTT TITITI TIT TTTT TTT iiiTiiiT ii iiiiii iT ies 
010744 1ST?: 
010744 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
010750 001406 BEQ 2$ :BR IF NOT 
010752 100002 BPL 1$ ;BR IF JUST ENTERED TEST 
010754 000137 002636 JMP EXEC [RETURN & GET NEXT TEST NUMBER 
010760 012737 177777 001266 18: MOV #-1,KYBCTL ;SET SINGLE TEST INDICATOR 
010766 012737 011002 001106 2$: MOV #TEST7,$LPADR :SETUP SCOPE LOOP ADDRESS 
Stans 012737 011002 001110 — MOV #TEST7,$LPERR © ;SETUP ERROR LOOP ADDRESS 
011002 112737 000007 001102 MOVB #7,STSTNM sMOVE #7 TEST NUMBER 
011010 012706 001100 MOV #STACK, SP 'SETUP THE STACK POINTER 
011014 012737 000001 001176 MOV #1, STIMES 3:D0 1 J TERATION 
011022 113760 001224 000010 MOVB  PORTA,RMCS2(RO) SELECT PORT A 
011030 013737 001224 001234 MOV PORTA_PTNBR move PORT ADDRESS TO LOCATION FOR TYPEOUT 
011036 104401 017567 TYPE ~CYCLED "CYCLE DOWN THE DRIVE" 
:WAIT FOR "MOL" TO RESET 
011042 032760 010000 000012 13: BIT #MOL.RMDS(RO) TEST "MOL" 
011050 001374 BNE 1$ “BR i¢ 17 3S S¥iat SEY 


G 
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RMO5/3/2 DU POR TST 2 
TEST "CONTROLLER SELECT" SWITCH ON PORT SEQ 0045 
011052 104401 017352 TYPE »SWICHA SWITCH TO ‘A’ 
011056 104401 017610 TYPE »CYCLEU ;"CYCLE UP THE DRIVE’ 

:WAIT FOR DRIVE TO CYCLE UP AFTER SWITCH CHANGED 
011062 032760 010000 000012 2s: BIT WMOL,RMDS(RO) ;TEST ‘MOL’ AGAIN 
011070 001774 BEQ 2% :BR IF NOT SET 

:DRIVE 1S CYCLED UP, CHECK STATUS THROUGH PORT A 
011072 005037 001244 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
011076 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
011104 012737 000012 001122 MOV #RMDS , SBDADR + FORM REGISTER ADDRESS OF ERROR MESSAGE 
011112 060037 001122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
011116 012737 110600 001124 MOV ATA:HOL !DPRIDRY, $GDDAT ;WHAT REGISTER SHOULD B 
011124 013737 001126 001164 MOV SBDDAT,$TMPO :MOVE REGISTER ie TO STMPO! 
011132 042737 066077 001164 BIC rect 100. STMPO ; SAVE erect ats BIT 
011140 023737 001124 001164 CMP S$GDDAT,$TMPO ; COMP “ge %y HE BITS 
011146 001414 BEQ 64% :BR 
011150 013737 001126 001174 MOV SBDDAT ,STMP4 ‘COPY ‘BAD DATA‘ 
011156 042737 111700 001174 BIC #111700,$TMP4 CLEAR THE MASKED BITS 
011164 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
011172 104021 EMT 21 
011174 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
011200 000240 64$: NOP 

SET VOLUME VALID FOR PORT A 
011202 012760 000011 000000 MOV W11,RMCSIC(RO) ;ISSUE A DRIVE CLEAR 
011210 012760 000021 000000 MOV #21,RMCS1(RO) ;ISSUE A READIN PRESET 
011216 012760 010000 000032 MOV WFMT16,RMOF (RO) ;SET FMT16 

CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT ‘NED’ 

SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B. 
011224 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
011232 013737 001226 001234 MOV PORTB.PTNBR ; MOVE yey ADDRESS TO LOCATION FOR regu 
011240 005037 001244 CLR CKERR CLEAR THE ‘CHECK ag INDICATOR 
011244 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ;GET CONTENTS OF RMDS 
011252 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER yg te OF ERROR MESSAGE 
011260 060037 001122 ADD RO, $BOADR ;ADD RH/RM BASE ADDRESS 
011264 005037 001124 CiR SGDDAT [WHAT REGISTER SHOUL D BE 
011270 013737 001126 001164 MOV SBODAT ,STMPO :MOVE REGISTER CONTENTS TO 'STMPO' 
011276 042737 000077 001164 BIC PCtITP00. STMPO ;SAVE SPECIFIED BITS 
011304 023737 001124 001164 CMP SGDDAT, STMPO ;COMPARE THE BITS 
011312 001414 BEQ 66% BR IF OK 
011314 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY”"BAD DATA’ 
011322 042737 177700 001174 BIC #177700,$1MP4 CLEAR THE MASKED BITS 
011330 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
011336 eg 3 EMT 2 
011340 0051 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
011344 000240 668: NOP 
011346 005037 001244 CLR CKE CLEAR THE ay I oo INDICATOR 
011352 016037 000010 001126 MOV RMCSOCRO) , SBDDAT’ ;GET CONTENTS 0 
011360 012737 000010 001122 MOV + hf SBOADR ;FORM ay FA ADDRESS oF ERROR MESSAGE 
011366 060037 001122 ADD RO,$ ;ADD RH/RM BASE ADDRESS 
011372 012737 010000 001124 MOV wNED, eSGDDAT WHAT REGISTER SHOULD BE 


CZRMSAO RMO5/3/2 DU POR TST 2 


7 


011400 013737 001126 
011406 ef tet 167777 
011414 023737 001124 
011422 001414 

0114246 013737 001126 
011432 042737 010000 
011440 053737 001174 
011446 104023 

011450 005137 001244 
011454 000240 

011456 005060 000012 


011462 113760 001224 
011470 013737 001224 
011476 012760 000013 
011504 013737 001224 
011512 113760 001226 
011520 013737 001226 
011526 005037 001244 
011532 016037 000012 
011540 012737 000012 
011546 060037 001122 
011552 005037 001124 
011556 013737 001126 
011564 042737 000077 
011572 023737 001124 
011600 001414 

011602 013737 001126 
011610 042737 177700 
011616 053737 001174 
011624 104024 

011626 005137 001244 
011632 000240 

011634 105737 001103 
011640 001412 

011642 032777 001000 
011650 001406 

011652 105037 001103 
011656 005037 001176 
011662 000177 167222 
011666 005737 001266 
011672 001460 

011674 032777 040000 
011702 001054 

011704 104401 017567 
011710 104401 017264 
011714 104401 017610 
011720 113760 001224 
011726 013737 001224 
011734 032760 010000 
011742 001374 


H 4 
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TEST "CONTROLLER SELECT’ SWITCH ON PORT A 


000010 


001164 
001174 


001174 
001124 


167270 


167236 


000010 
001234 
000012 


68$: 


; VERIFY 


70$: 


oeees’ STMPO ;MOVE REGISTER — TO '$STMPO' 
W°CNED.STMPO ; SAVE sees os” BIT 
+ aaa »STMPO ;COMPARE THE Biis” 


6 s 
SBDDAT ,STMP4 :COPY "BAD DATA* 


WNED ,STMPG ;CLEAR THE MASKED BITS 

STMP4 ,SGDDAT ;"OR* WITH GOOD DATA FOR TYPEOUT 

CKERR SET THE REGISTER COMPARE ERROR INDICATOR 

RMDS (RO) sTRY TO SET REQUEST BY WRITING THROUGH 
:THE LOCKED OUT PORT (PORT 'B") 


THAT DRIVE STAYS LOCKED ON PORT A 


PORTA, RACS2(RO? :SELECT PORT A 
PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMDS(RO) © ISSUE A RELEASE THROUGH PORT 
PORTA,SEIZPT | :ADDRESS OF "LOCKED ON' PORT 
PORTB.RMCS2(RO) ':SELECT PORT B 

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

#RMDS , SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR ADD RH/RM BASE ADDRESS 

$GDDAT ‘WHAT REGISTER Fa 1 D BE 

SBDDAT,STMPO | :MOVE REGISTER CONTENTS TO ‘STMPO’ 
#°C177700,$TMPO ;SAVE SPECIFIED BITS 

SGDDAT, ,$TMPO =; COMPARE _-THE BITS 


‘BR IF OK 
SBDDAT,STMP4 = COPY ‘BAD DATA’ 
#177700,$1TMP4  :CLEAR THE MASKED BITS 
STMPA, S$GDDAT = "OR" WITH GOOD DATA FOR TYPEOUT 


2 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


;1F ERROR OCCURRED, CHECK FOR LOOP ON TEST 


3$: 


4$: 


lt t+ g" ae OCCUR 
#SWO9,aSWR ;SEE IF LOOP ON ERROR (SWR9 = 1) 
3$ BR IF NOT 
SERFLG CLEAR THE ERROR FLAG 
STIMES ;CLEAR THE MAX ITERATION COUNT 
@SLPERR :GO TO THE LOOP ADDRESS 
cen. an eee TEST MODE ? 
#SW14,aSWR : LOOP ON TEST ? 
6$ R_ IF LOOPING 

-CYCLED STYPE "CYCLE DOWN’ 

. SWICHN oly TO A/B' 


-CYCLEU "CYCLE a‘. pa ive uP' 
PORTA, RMCS2(RO) °;SELECT PORT 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
WMOL,RMDS(RO) =; CHECK 'M 
4$ ;BR IF SET (DRIVE NOT CYCLED DOWN) 


SEQ 0046 
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17 TEST “CONTROLLER SELECT’ SWITCH ON PORT SEQ 0047 
011744 032760 010000 000012 5$: BIT WMOL,RMDS(RO)  ;CHECK ‘MOL’ AGAIN 
011752 001774 BEQ 5$ ;BR IF NOT SET (DRIVE NOT CYCLED UP) 
;SET VOLUME VALID FOR BOTH PORTS 
011754 012760 000011 000000 MOV W11,RMCS1(RO) ISSUE A DRIVE CLEAR THROUGH PORT A 
011762 012760 000021 000000 MOV #21,RMCS1(RO) ;1SSUE A READIN PRESET THROUGH PORT A 
011770 012760 000013 000000 MOV M13,RMCS1(RO) ;RELEASE ad A 
011776 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
012004 013737 001226 001234 MOV PORTB,PTNBR ;MOvE PORT Paste TO LOCATION FOR TYPEOUT 
012012 012760 000021 000000 MOV #21,RMCS1(RO) issu UE A READIN PRESET THROUGH PORT B 
012020 012760 010000 000032 MOV WFMTI6,RMOF (RO) ;SET FMT16 
012026 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE PORT B 
012034 104401 001207 6$: TYPE - SCRLF “4. 
012060 012737 011610 001254 MOV #5000. ,WATCH : SPINDLE MOTOR "COOL DOWN' DELAY 
012046 005737 001254 7$: TST WATCH FINSIHED ? 
012052 001375 BNE 7$ BR IF JNOT 
012054 000004 SCOPE ;LOOP 
oa? 012056 000400 BR TST10 3360 10 NEXT TEST 
ERATE ERATE KAKA e ee 
:FTEST 10 TEST "CONTROLLER SELECT® SWITCH ON PORT B 


:*TEST THE OPERATION OF THE ‘CONTROLLER SELECT’ SWITCH (DRIVE CYCLED DOWN). 

A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO CONTROLLER B POSI 
NEUTRAL AND THAT THE STATUS 

PORTS, ARE CORRECT. 

SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO B; CYCLE THE DRIVE UP. 


D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-B IS RESET, AND 
THAT ‘ATA=B IS SET. 


E. oo DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


T tt VERIFY THAT THE DRIVE IS_ IN 


l 
BITS IN RMDS, AS READ THROUGH BOTH 


Oo 
o 


Be Se Be Be Be Be Be Be Be Oe oe 


uw; eseenenenenrenrenrenenenernetenetenenrerenrtereteneeneeneeee 


F. VERIFY THAT THE DRIVE CANNOT BE hig THROUGH PORT A AND 
"NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET P sca REQUEST BY WRITING 0°S 
INTO RMDS THROUGH PORT A 


G. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT B. 


H. CYCLE THE DRIVE DOWN. CHANGE THE ‘CONTROLLER SELECT" SWITCH TO 
A/B; CYCLE THE DRIVE UP. 


1. VERIFY THAT oUTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 
BITS ARE SET, AND THAT BOTH ‘vv BITS ARE RESET. 


'MARBZARABZAASAALAZASASARRRRRAESAASRESERE RES SRR RRR RRR SERRE RRR RRR ES OS 


012060 : 
012060 005737 001266 TST KYBCTL PERFORMING ONLY SINGLE TESTS ? 
012064 001406 BEQ 2$ :BR IF NOT 


Re Be Be Be Be Be Be Be Be Be Be Be Be Se Be Be Be Be 


— 
a 
o 


J 4 
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T10 TEST ‘CONTROLLER SELECT’ SWITCH ON PORT B SEQ 0048 
012066 100002 BPL 1$ ;BR_IF JUST ENTERED TEST 
000137 002636 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
012737 177777 001266 1$: MOV #-1,KYBCT :SET SINGLE TEST INDICATOR 
012737 012116 001106 2$: MOV MTESTIO, SLPADR :SETUP SCOPE LOOP ADDRESS 
012737 012116 001110 TESTI MOV MTESTIO,SLPERR ;SETUP ERROR LOOP ADDRESS 
112737 000010 001102 " MOVE Ay F STSTNM MOVE #10 TEST NUMBER 
012706 001100 MOV TACK ,SP ;SETUP THE STACK POINTER 
012737 000001 001176 MOV ni »STIMES ;:D0 1 ITERATION 
113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
013737 001226 001234 MOV PORTB,PTNBR move PORT ADDRESS TO LOCATION FOR TYPEOUT 
104401 017567 TYPE »CYCLED "CYCLE DOWN THE DRIVE" 
WAIT FOR *MOL" TO RESET 
032760 010000 000012 1$: BIT MMOL,RMDS(RO) ;TEST ‘MOL’ 
001374 BNE 1$ BR IF ; IS STILL SET 
104401 017434 TYPE . SWTCHB ;SWITCH TO ‘B' 
104401 017610 TYPE -CYCLEU :"CYCLE UP THE DRIVE" 
sWAIT FOR DRIVE TO CYCLE UP AFTER SWITCH CHANGED 
032760 010000 000012 2$: BIT WMOL,RMDS(RO) ;TEST "MOL' AGAIN 
001774 BEQ 2$ ;BR IF NOT SET 
sDRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT B 
012 005037 001244 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
012 016037 000012 001126 MOV hoy $BDDAT ;GET CONTENTS OF RMDS 
012 012737 000012 001122 MOV #RMDS ,SBOADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
012 060037 001122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
012 012737 110600 001124 MOV WATA'MOL'DPR!DRY.SGDDAT ;WHAT REGISTER SHOULD BE 
012 013737 001126 001164 MOV SBDDAT,STMP :MOVE REGISTER CONTENTS TO ‘STMPO" 
012 042737 066077 001164 BIC #°C111700,$TMPO |; SAVE pecs! 268 BITS 
012 023737 001124 001164 CMP SGDDAT ,STMPO i COMPARE T HE BITS 
012 001414 BEQ 64% F OK 
O12 013737 001126 001174 MOV SBDDAT ,STMP4 :COPY "BAD DATA’ 
012272 042737 111700 001174 BIC #111700,$TMP4 CLEAR THE MASKED BITS 
012300 053737 001174 001124 BIS $TMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
012306 104021 EMT 21 
012310 005137 001244 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
012314 000240 64$: NOP 
;SET VOLUME VALID FOR PORT B 
012760 000011 000000 MOV W11,RMCS1(RO) =; ISSUE : DRIVE CLEAR 
012760 000021 000000 MOV #21,RMCS1(RO) ISSUE _A READIN PRESET 
012760 010000 000032 MOV #FMT16,RMOF (RO) 3SET FMT16 
;CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT ‘NED* 
SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A. 
113760 001224 000010 MOVB oly RMCS2(RO) ;SELECT PORT A 
013737 001224 001234 MOV PORTA,PTNBR ;MOVE + ADDRESS TO LOCATION FOR TYPEOUT 
005037 001244 CLR CKERR CLEAR THE "CHECK ERROR" INDICATOR 
016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
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001122 


001124 


001164 


001174 
001174 
001124 


CT" SWITCH ON PORT 


66$: 


68$: 


VERIFY 


70$: 


#RMDS ,SBDADR 
RO, $BDADR 


coopat 
SBODAT ,STMPO 


4 
8-23 


; FORM gt rig te ee ERROR MESSAGE 
;ADD_RH/RM BASE A iy 
i WHAT REGISTER SH HOUL D BE 
;MOVE REGISTER CONTENTS TO "STMPO' 


PectITPOON STMPO ';SAVE SPECIFIED BITS 


SGbDAT, $TMPO 
66$ 


4 

SBDDAT, STMP4 

#177700, $TMP4 
STMPA, »SGDDAT 


2 
CKERR 


CKE 

RNCSS(RO) , $BD 
#RMCS2,SBDADR 
RO,$BDADR 

#NED ,SGDDAT 
SBDDAT ,STMPO 
#*CNED,STMPO 
¢ data 


6 

SBODAT ,STMP4 
#NED ,STMP4 
STMP4 ,SGDDAT 
23 

CKERR 


RMDS (RO) 


: COMPARE THE BITS 


K 
:COPY ‘BAD DATA 
:CLEAR THE MASKED BITS 
:"OR' WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPARE ERROR INDICATOR 


;CLEAR THE ‘CHECK ras INDICATOR 
DAT ;GET CONTENTS OF 
;FORM REGISTER RODRESS. oF ERROR MESSAGE 
;ADD _RH/RM BASE ADDRESS 
:WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO ‘STMPO' 
sSAVE SPECIFIED BITS 
ian TF Ox THE BITS 


;COPY "BAD DATA’ 

:CLEAR THE MASKED BITS 

:'OR* WITH 6GOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


TRY TO SET REQUEST BY ot bee 3 THROUGH 
;THE LOCKED OUT PORT (PORT 'A 


THAT DRIVE STAYS LOCKED ON PORT B 
PORTB,RMCS2(RO) ;SELECT P 


PORTB,PTNBR 
#13,RMDS (RO) 
PORTB,SEI1ZPT 


T B 
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
; A ORT B 


PORTA,RMCS2(RO) ;SELECT PO 1 


——— 


;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
EAR THE ‘CHECK oa, INDICATOR 


KERR 3CL 
RMDS(RO),SBDDAT ;GET CONTENTS OF R 


#RMDS ,SBDADR 
RO, SBDADR 


eeeytl 
SBODAT ,STMPO 


MDS 
;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD_RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO "STMPO' 


PeChITPOO. STMPO ;SAVE SPECIFIED BITS 


SGDDAT, $TMPO 

70$ 

SBDDAT, STMP4 

#177700, $TMP4 
STHPA, SSGDDAT 


CKERR 


; COMPARE THE BITS 

;BR IF OK 

:COPY "BAD DATA’ 

:CLEAR THE MASKED BITS 

:'OR* WITH GOOD DATA FOR TYPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


;1F ERROR OCCURRED, CHECK FOR LOOP ON TEST 


SEQ 0049 


CZR 
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TEST "CONTROLLER SELECT’ SWITCH ON PORT B 
012750 105737 001103 TSTB ss SERFLG {DID AN ERROR OCCUR 
012754 001412 BEQ $ F NOT 
012756 032777 001000 166154 BIT #SwO9,aswR SEE IF LOOP ON ERROR (SURO = 1) 
012764 001406 BEQ 38 BR IF NOT 
012766 105037 001103 CLRB ss SERFLG CLEAR THE ERROR FLAG 
012772 005037 001176 CLR ss STIMES SCLEAR THE MAX ITERATION COUNT 
012776 000177 166106 JMP = ASLPERR $60 TO THE LOOP ADDRESS 
013002 032777 040000 166130 38: BIT #SW14,aSWR : LOOP ON TEST? 
013010 001054 BNE 6$ BR IF LOOPING 
013012 104401 017567 TYPE —_, CYCLED TYPE *CYCLE DOWN" 
013016 104401 017264 TYPE = | SWTCHN ;'SWITCH TO A/B" 
013022 104401 017610 TYPE =; CYCLEU CYCLE THE DRIVE UP* 
013026 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ‘SELECT 
013034 013737 001226 001234 MOV —- PORTB. PTNBR Sad PORT "ADDRESS TO LOCATION FOR TYPEOUT 
013042 032760 010000 000012 4s: BIT  A#MOL,RMDS(RO) ;CHECK 'MOL' 
013050 001374 | BNE 4$ ;BR_IF SET (DRIVE NOT CYCLED DOWN) 
013052 032760 010000 000012 5s: BIT  § #MOL,RMDS(RO) [CHECK "MOL" AGAIN 
013060 001774 BEQ sé :BR IF NOT SET (DRIVE NOT CYCLED UP) 
;SET VOLUME VALID FOR BOTH PORTS 
013062 012760 000011 000000 MOV = #11,RMCS1(RO) ISSUE A DRIVE CLEAR THROUGH PORT B 
013070 012760 000021 000000 MOV = #21,RMCS1(RO) ISSUE A READIN PRESET THROUGH PORT B 
013076 012760 000013 000000 MOV  #13,RMCS1(RO) [RELEASE PORT B 
013104 113760 001224 000010 MOVB = PORTA,RMCS2(RO) ‘;SELECT PORT A 
013112 013737 001224 001234 MOV PORTA-PTNBR  ;MOVE PORT ADDRESS 10 LOCATION FOR TYPEOUT 
013120 012760 000021 000000 MOV =: #21, RMCS1(RO) {ISSUE A READIN PRESET THROUGH PORT A 
013126 012760 010000 000032 MOV = #FMT16,RMOF (RO) :SET F MIG 
013134 012760 000013 000000 MOV  #13,RMCS1(RO)  :RELEASE P 
013142 012737 011610 001254 68: MOV  #5000.,WATCH © SPINDLE MOTOR "COOL DOWN’ DELAY 
013150 005737 001254 7$: TST WATCH :F INI SHED 
013154 001375 BNE 7$ ;BR IF ‘NOT. 
013156 000004 SCOPE LOOP ? 
013160 000137 013166 JMP ss SEOP {G0 TO THE END OF PASS ROUTINE 
SERRA RARER EATER EATER 
:PuT NEWTEST HERE 
CRRA 
013164 000004 18111: SCOPE 
.SBTTL END OF PASS ROUTINE 
SERRA EERE EEE e eee 
! INCREMENT THE PASS NUMBER. (SPASS) 
*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM d 
*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
SeUHERE XXXKX AND YYYYY ARE DECIMAL NUMBERS 
if1f THERES A MONITOR GO TO 11 
*IF THERE ISN'T JUMP TO TSTIAA 
013166 SEOP: 
013166 005737 001266 TST = KYBCTL ZENTERED TEST VIA KEYBOARD COMMAND ? 
013172 001402 BEQ .+6 R IF NOT 
013174 000137 002636 JMP EXEC RETURN TO KEYBOARD CONTROL 
013200 005037 001102 CLR so STSTNM ::;2ERO THE TEST NUMBER 
013204 005037 001176 CLR ss STIMES SEZERO THE NUMBER OF ITERATIONS 


SEQ 0050 


M4 
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013210 005237 001100 INC SPASS i+ INCREMENT THE PASS NUMBER 
| 013214 042737 100000 001100 BIC #100000, SPASS ;;DON'T ALLOW A NEG. NUMBER 
013222 005327 DEC (PC)+ 3; LOOP? 

013224 000001 SEOPCT: . WORD 
| 013226 003063 BGT SDOAGN sr YES 
013230 012737 MOV (PC)+,a(PC)+ ; RESTORE COUNTER 

013232 000001 SENDCT: .WORD 1 
| 013234 013224 SEOPCT 
013236 104401 013244 TYPE 038 is TYPE ASCIZ STRING 
| 013242 000407 BR 64$ 3GET OVER THE ASCIZ 

3765$: .ASCIZ <12><15>/END PASS #/... 
013262 64$: 
013262 013746 001100 MOV SPASS,-(SP) 33 SAVE $PASS FOR TYPEOUT 
| TYPE PASS NUMBER 
| 013266 104405 TYPDS 360 TYPE--DECIMAL ASCII WITH SIGN 
013270 104401 013276 TYPE ,67$ : TYPE ASCIZ STRING 
013274 000421 BR 66$ ::GET OVER THE ASCIZ 
3:67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
013340 66$: 
013340 013746 001112 MOV SERTTL,-(SP) 7:SAVE SERTTL FOR TYPEOUT 
| TOTAL NUMBER OF ERRORS 
013344 104405 TYPDS 37G0 TYPE=-DECIMAL ASCII WITH SIGN 
| 013346 104401 001207 TYPE -SCRLF 7; TYPE CARRIAGE RETURN, LINE FEED 

013352 005037 001112 CLR SERTTL 7:CLEAR ERROR TOTAL 
013356 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
013362 001405 BEQ SDOAGN ;;BRANCH IF NO MONITOR 

013364 000005 RESET ::CLEAR THE WORLD 

013366 004710 SENDAD: JSR PC, (RO) 3:60 TO MONITOR 

013370 000240 NOP 7; SAVE ROOM 

013372 000240 NOP 77FOR 

013374 000240 NOP srACT11 

013376 SDOAGN: 

! 013376 000137 JMP a(Pc)+ + RETURN 

013400 003120 SRINAD: .WORD TSTIAA 
013402 377 377, = 000—sSENULL: BYTE 1,-7.0 ;;NULL CHARACTER STRING 
. V 
| 
| 
i 
| 
| 
| 
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SUBROUTINE SEQ 0052 
1 » SBTTL SUBROUTINES 
2 SUR ARARAA RARER ee RARER 
? *SBTTL CLOCK SUBROUTINES 
H sROUTINE TO CHECK FOR KWil-L OR KW11-P CLOCKS 
7 013406 012737 013456 000004 CKCLK: MOV MCKCLK1,Q#ERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
8 013414 005037 000006 CLR a#ERRVEC+2 sNEW PSW 
9 013420 005777 165566 TST a$L_LKCSR ;CHECK FOR KW11-P 
10 013424 013701 001216 MOV SLPVEC,R1 sKW11-P VECTOR ADDRESS 
11 013430 012721 013540 MOV ACLOCK, (R1)+ :SET UP KW11-P VECTOR 
12 013434 012711 000300 MOV #300, (R1) sPSW = PRI 6 
13 013440 012777 177777 165546 MOV #-1,a$LKCSB ;LOAD COUNTER BUFFER WITH 1°S 
14 013446 012777 000135 165536 MOV #135, a$LKCSR 7SET CLOCK = CNT UP, 16MS, CONT INT 
. 15 013454 000425 BR CKCLK3 
16 013456 062706 000004 CKCLK1: ADD #4,SP sRESTORE THE STACK POINTER 
17 013462 012737 013520 000004 MOV AKCLE?, AWERRVEC sCHANGE ERROR VECTOR TO CHECK FOR KWIT-L 
18 013470 005777 165524 TST as_K :LOOK FOR KW1TeL 
19 013474 013701 001222 MOV srt VEC, R1 sKW11eL VECTOR ADDRESS 
20 013500 012721 013540 MOV #CLOCK. (R134 3 SET of se VECTOR 
21 013504 012711 000300 MOV #300,(R1) :PSW - PRI 6 
22 013510 012777 000100 165502 MOV #190 ,aSLKS ;SET KW11-L INTERRUP1 
235 013516 000404 BR CKCLK3 
24 013520 062706 000004 CKCLK2: ADD y RESTORE THE STACK POINTER 
25 013524 062716 000002 ADD #2, (SP) s INCREMENT RETURN, NO CLOCK 
26 013530 012737 000006 000004 CKCLK3: MOV #6, ,a#MERRVEC *RESTORE THE ERROR VECTOR 
$f 013536 000207 RTS PC 
34 ;ROUTINE TO COUNT CLOCK TICKS 
31 013540 062727 000021 001252 CLOCK: ADD #17., TIME z:ADD 17 MS TO ELAPSED TIME COUNTER 
32 013546 005737 001254 TST WATCH :1S WATCH ALREADY ZERO ? 
33 013552 001406 BEQ 1$ :BR IF IT IS 
34 013554 162737 000021 001254 SUB #17. , WATCH s;SUBTRACT 17 MS FROM WATCH DOG COUNTER 
35 013562 100002 BPL 1$ :BR IF NOT MINUS 
36 013564 005037 001254 CLR WATCH sCLEAR WATCH DOG COUNTER 
4 013570 000002 1$: RTI :RETURN 
+4 ROUTINE TO CALCULATE + 25% TIME TOLERANCE VALUES 
41 013572 005746 TOLER: TST -(SP) MAKE ROOM ON THE STACK 
42 013574 016616 000002 MOV 2(SP), (SP) SAVE STACK 
43 013600 013546 MOV a(R5)+,-(SP) :GET TIME VALUE 
44 013602 011666 000004 MOV (SP) ,4(SP) MOVE TIME VALUE 
45 013606 006216 ASR (SP) sDIVIDE BY 2 
46 013610 006216 ASR (SP) sDIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
47 013612 062666 000002 ADD (SP)+,2(SP) a UPPER LIMIT FOR TIMEOUT 
<8 013616 000205 RTS RS RETURN WITH TOLERANCES ON THE STACK 
4 
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013620 


013630 
013632 
013634 


Wwnn——o 
SSRNGES 


soo 


104407 
032777 
001055 
000416 


013746 


040000 


000004 
0 

000004 
000004 


001103 
001103 
001176 
004000 
001100 


001104 
001176 


000001 


001106 


: 8 5 
MACRO VO03.01 11-APR=80 14:40:19 PAGE 10 


165310 


000004 


165224 


001104 


001104 
001176 


165150 


-SBTTL SCOPE HANDLER ROUTINE 


PPPS TTP i iii titi titi ii iitiiiiiiiiitt 
LSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

s*THE SWITCH OPTIONS oe taete BY THIS ROUTINE ARE: 


*SW14=1 LOOP ON TEST 
*SWil=1 INHIBIT ITERATIONS 
3 *CALL 
3 SCOPE 3; SCOPE=10T 
SSCOPE: 
CKSWR ;;TEST FOR CHANGE IN SOFT SWR 
1$: BIT #BIT14,aSWR SLOOP ON PRESENT TEST? 
BNE OV “YES IF SW14=1 
SWWHHHSTART OF CODE FOR THE XOR TESTERMMMHA 
$XTSTR: BR 6$ i31F RUNNING ON THE "'XOR'' TESTER CHANGE 
:THIS INSTRUCTION TO A "'NOP’' (NOP=240) 
MOV AMERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV WSS ,QNERRVEC = 3 3SET FOR TIMEOUT 
TST a#177060 : OUT ON XOR? 
MOV (SP) +, a#ERRVEC : :RESTORE THe ERROR VECTOR 
BR $SVLAD :G0 TO THE NEXT TEST 
S$: CMP (SP)+, (SP)+4 EAR THE STACK AFTER A TIME OUT 


2CL 
MOV (SP)+ ,a#ERRVEC : :RESTORE THE ERROR VECTOR 
BR SOVER LOOP ON Me PRESENT TEST 
 egaaain 4 OF A = THE KOR fesTenennns 


TS HAS AN ERROR OCCURRED? 
BEQ 3% ::BR 1F NO 
4$: CLRB SERFLG 3 ZERO THE ERROR FLAG 
CLR STIMES ;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3$: BIT #BIT11,aSWR >; INHIBIT ITERATIONS? 
BNE 1$ a3 F YES 
TST SPASS Had FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT aril ope 
INC SICNT ZINCREMENT ITERATION COUN 
CMP STIMES ,SICNT : CHECK THE NUMBER OF ITERATIONS MADE 
BGE :BR IF MORE ITERATION REQUIRED 
1$: MOV #1,S$1CNT ;;REINITIALIZE THE ITERATION COUNTER 
MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
$SVLAD: INCB STSTNM :;COUNT TEST NUMBERS 
MOV (SP) ,SLPADR 3;SAVE SCOPE LOOP ADDRESS 
SOVER: MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 


MOV SLPADR, (SP) ;:FUDGE RETURN ADDRESS 
a zsFIXES PS 
SMXCNT :;MAX. NUMBER OF ITERATIONS 
"SBTTL. ERROR HANDLER ROUTINE 


IIIT iii iii iii titi iii iit i iii titi titi iii tii ii iiitit 
SeTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 
S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

:*SW15=1 HALT ON ERROR 
3*$W13=1 INHIBIT ERROR TYPEOUTS 
3*Swl0=1 BELL ON ERROR 


SEQ 0053 


. 
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ERROR HANDLER ROUTINE SEQ 0054 
3 *CALL 
3* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
014002 SERROR: 
014002 104407 CKSWR zz TEST FOR CHANGE IN SOFT-SWR 
014004 113737 001102 001242 MOVB STSTNM,TSTNUM 
014012 105237 001103 7$: INCB SERFLG +7 SET THE ERROR se 
014016 001775 BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
014020 013777 001102 165114 MOV STSTNM, se : DISPLAY TEST NUMBER AND ERROR FLAG 
014026 032777 002000 165104 BIT #B1T10,aSWR + BELL ON ERROR? 
014034 001402 BEQ 1$ 3;NO = SKIP 
014036 104401 001202 TYPE ,SBELL : IRIN G BELL 
014042 005237 001112 1$: INC SERTTL ; COUNT THE NUMBER OF ERRORS 
014046 011637 001116 MOV (SP) ,SERRPC SIGET ADDRESS OF ERROR INSTRUCTION 
014052 162737 000002 001116 SUB #2, SERRPC 
014060 117737 165032 001114 MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
014066 032777 020000 165044 BIT #B1T13,aSWR +3 SKIP teekous IF SET 
014074 001004 BNE 208 sSKIP TYPEOUTS 
014076 004757 014134 JSR PC,SERRTYP 1:60 TO USER ERROR ROUTINE 
014102 104401 001207 TYPE ,$CRLF 
014106 208: 
014106 005777 165026 2$: TST aSwR ;z;HALT ON ERROR 
014112 100002 BPL 3$ z7SKIP IF ron) a 
014114 000000 HALT 37HALT ON ERRO 
SRS 104407 35 CKSWR 3; TEST FOR cnaeee IN SOF T=-SwWR 
014120 022737 013366 000042 CMP MSENDAD ,a#42 3;ACT=-11 AUTO-ACCEPT? 
014126 001001 BNE 6$ :;BRANCH IF NO 
014130 000000 HALT 77 YES 
014132 6$: 
014132 000002 RTI 7 RETURN 
6 -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
TORR AAAAASZASZAAAZAAAAAAEAARARASASZAEASAESEEASLESEESERE ASSES SERRA RRR ASS 
SSTHIS ROUTINE USES THE “ITEM CONTROL BYTE'’ (SITEMB) TO DETERMINE WHICH 
+ *ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
+ *AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
014134 SERRTYP: a ° 
014134 104401 001207 TYPE »SCRLF 33 CARRIAGE RETURN’ & “‘LINE FEED 
014140 010046 MOV RO,-(SP) 7 SAV 
014142 005000 CLR RO + aT CKUP THE ITEM INDEX 
014144 153700 001114 B1SB a#¢$1TEMB,RO 
014150 001004 BNE 1$ HY ITEM NUMBER IS ZERO, JUST 
sTYPE THE PC OF THE ERROR 
014152 013746 001116 MOV SERRPC ,-(SP) sSAVE SERRPC FOR TYPEOUT 
TERROR ADDRESS 
014156 104402 TYPOC +360 TYPE--OCTAL ASCII(ALL DIGITS) 
014160 000445 BR 10$ GET OUT 
014162 005300 1$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
014164 006300 ASL RO $3 WORK FOR THE ERROR TABLE 
014166 006300 ASL RO 
014170 006300 ASL RO 
014172 062700 001276 ADD  —« #SERRTB, RO ;;FORM TABLE POINTER 
014176 012037 014206 MOV (RO)+, 26 77PICKUP ie RE SSAGE POINTER 
014202 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
014204 104401 TYPE sr TYPE THE ‘ERROR MESSAGE 
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ERROR MESSAGE TYPEOUT ROUTINE SEQ 0055 
014206 000000 2$: .wORD 0 ;s ERROR MESSAGE'' POINTER GOES HERE 
014210 104401 1YPE =, SCRLF S“CARRIAGE RETURN'' & "LINE FEED’ 
014214 012037 3$ MOV (RO)+,4$ S:PICKUP ''DATA HEADER™ POINTER 
014220 001404 BEQ 5$ i: SKIP TYPEOUT IF 0 
014222 104401 TYPE tt TYPE THE ''DATA HEADER" 

014224 0000 4$ .WORD 0 ::''DATA HEADER’ POINTER GOES HERE 
014226 104401 TYPE  ,$CRLF is “CARRIAGE RETURN'' & LINE FEED" 
014232 010146 5$ MOV R1,-(SP) AVE R1 
014234 012001 MOV (RO)+,R1 PICKUP “DATA TABLE" POINTER 
014236 001415 BEQ 9$ ::BR IF NO DATA TO BE T 
014240 012000 MOV (RO)*, RO ::PICKUP "DATA FORMAT" POINTER 
014242 105720 6$: TSTB = (RO) 4 ::"OCTAL'' OR "DECI 
014244 001003 BNE 7$ :2BR IF DECIMAL 
014246 013146 MOV a(R1)4+,-(SP) SAVE a(R1)+ FOR TYPEOUT 
014250 104402 TYPOC +260 TYPE=-OCTAL ASCII(ALL DIGITS) 
014252 000402 BR aS 
014254 7$: 
014254 013146 M a(R1)+,-(SP) ; SAVE a(R1)+ FOR TYPEOUT 
014256 104405 TYPDS £360 TYPE=-DECIMAL ASCII WITH SIGN 
014260 005711 8$: TST (R1) 31S Hage | ANOTHER NUMBER? 
014262 001403 BEQ 9$ S:BR IF 
014264 104401 014304 TYPE 11% TYPE 10012) SPACES 
014270 000764 BR 6$ + SLOOP 
014272 012601 9$: MOV (SP)+,R1 sZRESTORE R1 
014274 012600 10$: MOV (SP)+,RO ; RESTORE RO 
014276 104401 001207 TYPE , SCRLF +3 CARRIAGE RETURN'' & “‘LINE FEED'' 
014302 000207 RTS PC ;RETURN 
014304 040 040 000 118: Teg fF : TwoC2) SPACES 
EV 
7 -SBTTL TYPE ROUTINE 


SRR 


‘ #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 af 


;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; #NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*CAL 
#1) “USING A TRAP INSTRUCTION 
a YPE —_,MESADR ;iMESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 
te 
te TYPE 
3e ME SADR 
‘*® 
014310 105737 001157 $TYPE: TSTB  $IPFLG :i1S THERE A TERMINAL? 
014314 100002 BPL 1$ ::BR IF YES 
014316 000000 HALT ;3HALT HERE IF NO TERMINAL 
014320 000407 R $ LEAVE 
014322 010046 1$: MOV RO,-(SP) : SAVE RO 
014324 017600 000002 MOV 2 (SP) ,RO :iGET ADDRESS OF ASCIZ STRING 
014330 112046 2s: MOVB = (RO) +, = (SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
014332 001005 BNE 4$ R IF IT ISN'T THE TERMINATOR 
014334 005726 TST (SP)+ IF TERMINATOR POP IT OFF THE STACK 
014336 012600 60$: MOV (SP)+,RO SERESTORE RO 
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TYPE R SEQ 0056 
014240 062716 000002 3$: ADD #2, (SP) i :ADJUST RETURN PC 
014344 000002 RT] URN 
014346 122716 000011 4$: CMPB ss WHT, (SP) ‘:BRANCH IF <HT> 
014352 001430 BEQ 8$ 
014354 122716 000200 CMPB Ss CRLF, (SP) :;BRANCH IF NOT <CRLF> 
014360 001006 BNE 5$ 
014362 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
014364 104401 TYPE :: TYPE A CR AND LF 
014366 001207 , $CRLF 
014370 105037 014576 CLRB $CHARCNT ii CLEAR CHARACTER COUNT 
014374 000755 BR 2$ :GET NEXT CHARACTER 
014376 004737 014460 5$: JSR PC ,STYPEC +:G0 TYPE THIS CHARACTER 
014402 123726 001156 6$: CMPB ss $FILLC, (SP)+ ::1S IT TIME FOR FILLER CHARS. ? 
014406 001350 BNE 2$ ::1F NO GO GET NEXT CHAR. 
014410 013746 001154 MOV $NULL,-(SP) 7:GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 
014414 105366 000001 7$: DECB ~—s« 1 SP) ::DOES A NULL NEED TO BE TYPED 
014420 002770 BLT 6$ +:BR IF NO--GO POP THE NULL OFF OF STACK 
014422 004737 014460 | JSR PC ,STYPEC +:60 TYPE A NUL 
014426 105337 014576 DECB  $CHARCNT >:DO NOT COUNT “is A COUNT 
014432 000770 BR 7$ + LOOP 
;HORIZONTAL TAB PROCESSOR 
014434 112716 000040 8$: MOVB #* (SP) +r wy TAB WITH SPACE 
014440 004737 014460 9$: JSR PC,STYPEC si TYPE A SPACE 
014444 132737 000007 014576 BITB = #7. SCHARCNT :3BRANCH IF NOT AT 
014452 001372 BNE 9$ : STOP 
014454 005726 TST (SP)+ +: POP SPACE OFF STACK 
014456 000724 BR 2$ ::GET NEXT CHARACTER 
014460 STYPEC: 
014460 105777 164460 TSTB ores 3: CHAR IN KYBD BUFFER? 
014464 100022 BPL 10$ ::BR IF NOT 
014466 017746 164454 MOV a$TKB,-(SP) [:GET CHA 
014472 042716 177600 BIC #177600, (SP) +: STRIP EXTRANEOUS BITS 
014476 122716 000023 CMPB WSXOFF, (SP) 7:WAS CHAR 
014502 001012 BNE 102$ ::BR IF MOT 
014504 101$: 
014504 105777 164434 1TSTB = @STKS ::WAIT FOR CHAR 
014510 100375 BPL 101$ 
014512 117716 164430 MOVB  a$TKB, (SP) ::GET CHAR 
014516 042716 177600 BIC #177600, (SP) ::STRIP IT 
014522 122716 000021 CMPB  —s_- #$ ON, (SP) >:WAS IT XON? 
014526 001366 BNE 101$ ::BR IF NOT 
014530 102$: me 
014530 005726 TST (SP)4 :iFIX STACK 
014532 108: 
014532 105777 164412 TSTB = aSTPS ::WAIT UNTIL PRINTER IS READY 
014536 100375 BPL 10$ 
014540 116677 000002* 164404 MOVB  2(SP),a$TPB ;7LOAD CHAR TO BE TYPED INTO DATA REG. 
014546 122766 000015 000002 CMPB ss CR, 2( SP) 71S CHARACTER A CARRIAGE RETURN? 
014554 001003 BNE 1$ ::BRANCH IF NO 
014556 105037 014576 CLRB = SCHARCNT S:YES--CLEAR CHARACTER COUNT 
014562 000406 BR STYPEX TEXIT 
014564 122766 000012 000002 1S: CMPB oF, 2( SP) 3318 CHARACTER A LINE FEED? 
014572 001402 BEQ STYPEX ‘BRANCH IF YES 
014574 105227 INCB ss (PC) >:COUNT THE CHARACTER 
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TYPE ROUTINE SEQ 0057 
014576 000000 SCHARCNT: .WORD 3. ;; CHARACTER COUNT STORAGE 
014600 000207 STYPEX: RTS 
8 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


IPT T SSCS i i iti titi i iii citi iii iii iii) 

STHIS ROUTINE 'S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

> *OCTAL (ASCI1) NUMBER AND TYPE IT. 

:*$1YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


>*CALL: 

;@ MOV NUM,=(SP) ;;NUMBER TO BE TYPED 

;* TYPOS ;:CALL FOR TYPEOUT 

e -BYTE ON ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;@ -BYTE ™ 33M=1 OR 0 

;@ 23 1=TYPE LEADING ZEROS 

“hed 3;0=SUPPRESS LEADING ZEROS 

7 


;*$TYPON=----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
rhe OR $TYPOC 


>*CALL 

i MOV NUM ,=-(SP) ; NUMBER TO BE TYPED 

al TYPON 3;;CALL FOR TYPEOUT 

{#81 YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

> *CALL: 

3” MOV NUM ,=-(SP) ;:NUMBER TO BE TYPED 

3* TYPOC 3;CALL FOR TYPEOUT 
014602 017646 000000 $TYPOS: MOV a(SP),=-<(SP) 3;;PICKUP THE MODE 
014606 116637 000001 015025 MOVB 1(SP) ,SOFILL 3;LOAD ZERO FILL SWITCH 
014614 112637 015027 MOVB (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
014620 062716 000002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
014624 000406 BR $STYPON 
014626 112737 000001 015025 $TYPOC: MOVB #1,S0FILL 32SET THE ZERO FILL SWITCH 
014634 112737 000006 015027 MOVB #6, S0MODE+1 3:SET FOR SIX(6) DIGITS 
014642 112737 000005 015024 $TYPON: MOVB #5, S0CNT 37SET THE ITERATION COUNT 
014650 010346 MOV R3,-(SP) 7: SAVE R3 
014652 010446 MOV R4,-(SP) 37 SAVE R4 
014654 010546 MOV R5,-(SP) 37 SAVE RS 
014656 113704 015027 MOVB SOMODE*1. RG 3:GET THE NUMBER OF DIGITS TO TYPE 
014662 005404 NEG 
014664 062704 000006 - ADD o6. RG ;;SUBTRACT IT FOR MAX. ALLOWED 
014670 110437 015026 40VB R4 . SOMODE 3; SAVE IT FOR USE 
014674 113704 015025 MOVB SOFILL,R4 37GET THE ZERO FILL SWITCH 
014700 016605 000012 MOV 12(SP),R5 7:;PICKUP THE INPUT NUMBER 
014704 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 
014706 006105 1$: ROL R5 :sROTATE MSB INTO ‘'C’ 
014710 000404 BR 3$ :G0 DO MSB 
014712 006105 2s: ROL R5 FORM THIS DIGIT 
014714 006105 ROL R5 
014716 006105 ROL R5 
014720 010503 MOV R5,R3 
014722 006103 3$: ROL R3 3:GET LSB OF THIS DIGIT 
014724 105337 015026 DECB SOMODE 37; TYPE THIS DIGIT? 
014730 100016 BPL 7$ 3;BR IF NO 
014732 042703 177770 BIC #177770,R3 3:GET RID OF JUNK 
014736 001002 BNE 4% s TEST FOR 0 
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BINARY TO OCTAL 


oo 
—— 
Ss 
~~ 
-s 
mo 


lelelelelelelelelelelelelelelelelelelelelo) 
Ot a kk oh a a 
uw 
Oo 
o 
Mm 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15056 
15064 
1 
1 
1 
1 
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1 
1 
1 
1 
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(ASCII) AND TYPE 


0 
000000 


oO 00 @ oo 
4 Snobs tet eee | 

S 

o 


—coo—-00-—-90—C00000°O 
MMW 
™“ 
oO 
w 


005702 


000002 


020200 
000020 
000055 


015244 
000040 


015234 


G 5 
MACRO V03.01 11-APR-80 14:40:19 PAGE 10-5 


000004 


000001 


BEQ 5$ 
4$: INC R4 
BIS #'0,R3 
5$: BIS a’ “RB 
MOVB = R3,, 8 
TYPE ag 
7$: DECB =—-: $OCNT 
BGT 2$ 
BLT 6$ 
INC RG 
BR 2$ 
6$: MOV (SP)+,R5 
MOV (SP)+,RG 
MOV (SP)+.R3 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RT] 
“BYTE 0 
SOCNT: .BYTE 0 
SOFILL: .BYTE 0 
SOMODE: .WORD 0 


iB IF YE THIS 0? 


; BR Y 

;;DON'T SUPPRESS ANYMORE 0'S 

pee THIS DIGIT ASCII 

7:MAKE ASCII IF NOT ALREADY 

1 AVE FOR TYPING 

3:G0 TYPE THIS DIGIT 

;;COUNT BY 1 

;;BR IF MORE TO DO 

;;BR IF DONE 

is INSURE LAST DIGIT ISN'T A BLANK 

DO THE LAST DIGIT 

RESTORE R R5 

! TRESTORE R4 

;;RESTORE R3 

7;SET THE STACK FOR RETURNING 


7 RETURN 
7;STORAGE FOR ASCII DIGIT 
; TERMINATOR FOR TYPE ROUTINE 
se DIG!T COUNTER 
fom FILL SWITCH 
NUMBER OF DIGITS TO TYPE 


: D 
-SBTTL CONVERT BINARY TO DECIMAL. "AND TYPE ROUTINE 


FFARR AAA AEA AERA EAA REAR TREREE EES 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE Ii. 


DEPENDING ON WHETHER THE 


;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE 


s*REPLACED WITH SPACES. 


3*CALL: 


$TYPDS: 


1$: 


2s: 
3$: 


4$: 


MOV 


TYPDS 


NUM, =(SP) 


RO,-(SP) 


R5 

#*=,1(SP) 

RO 

WSDBL{ R3 
(RS) 4 


SD 1B, (RO) 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
3:60 TO THE ROUTINE 


3;PUSH RO ON STACK 
;sPUSH R1 ON STACK 


; STACK 
£156 BLANK SWITCH AND SIGN 
oat THE INPUT NUMBER 
;;BR IF INPUT IS POS. 
;;MAKE THE BINARY NUMBER POS. 
;:MAKE THE ASCI] NUMBER NEG. 
3:ZERO THE CONSTANTS Here fs 
ots es THE OUTPUT POINTER 
3;SET THE FIRST —— TO A BLANK 


:;FORM THIS BCD DIGIT 
::BR IF DON 
7; INCREASE THE BCD DIGIT By 1 


;;ADD BACK THE CONSTANT 
7: CHECK IF BCD DIGIT=0 


SEQ 0058 


H 5 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTIN SEQ 0059 
015120 001002 BNE 5$ ::FALL THROUGH IF 0 
015122 105716 1S1B Ss (SP) ::STILL DOING LEADING 0'S? 
015124 100407 BM] 7$ ::BR IF YES 
015126 106316 5$: ASLB (SP) 3: 2MSD? 
015130 103003 BCC 6$ ::BR IF NO 
015132 116663 000001 177777 MOVB =: 1(SP),=1(R3) >: YES=<SET THE SIGN 
015140 052702 000060 6$: BIS #'0,R2 ::MAKE THE BCD DIGIT ASCII 
015144 052702 000040 7$: BIS #' VR2 ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
015150 110223 MOVB R2,(R3)+ ;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
015152 005720 TST (RO) + +: JUST INCREMENT ING 
015154 020027 000010 CMP RO,#10 ::CHECK THE TABLE INDEX 
015160 002746 BLT 2$ +:G0 DO THE NEXT DIGIT 
015162 003002 BGT 8$ ::G0 TO EXIT 
015164 010502 MOV R5,R2 *:GET THE LSD 
015166 000764 BR 6$ +:G0 CHANGE TO ASCII 
015170 105726 8S: TSTB = (SP) 4 t:WAS THE LSD THE FIRST NON-ZERO? 
015172 100003 BPL hé IF NO 
015174 116663 177777 177776 MOVB <1(SP),-2(R3)  ::YES==SET THE SIGN FOR TYPING 
015202 105013 9$: CLRB —s (R3) +:SET THE TERMINATOR 
015206 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
015206 012603 MOV (SP)+,R3 :zPOP STACK INTO R3 
015210 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
015212 012601 MOV (SP)+_R1 >:POP STACK INTO R1 
015214 012600 MOV (SP)+,R0 ;;POP STACK INTO RO 
015216 104401 015244 TYPE $SDBLK ;z;NOW TYPE THE NUMBER 
015222 016666 000002 000004 MOV 2(SP) ,4(SP) ‘ADJUST THE STACK 
015230 -012616 MOV (SP)+, (SP) 
015232 000002 RTI ::RETURN TO USER 
015234 023420 $DTBL: 10000. 
015236 001750 1000. 
015240 000144 0 
015242 000012 10. 
015244 $DBLK: .BLKW 4 
10 .SBTTL TTY INPUT ROUTINE 
p et eeekeneaeeee eee eee eee eee Kee ee enrakeaneeneee 
»~ENABL LSB 
015254 000000 $TKCNT: .WORD 6 ::NUMBER OF ITEMS IN QUEUE 
015256 000000 STKOIN: .WORD 0 +: INPUT POINTER 
015260 000000 $TKQOUT: .WORD 0O ;;OUTPUT POINTER 
015262 $TKQSRT: .BLKB 1 sz TTY KEYBOARD QUEUE 
015263 STKQEND=. 
:*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
[*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
s*CALL: 
:* JSR PC ,STKINT 
:# RETURN 
015264 005037 015254 $TKINT: CLR STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 
015270 012737 015262 015256 MOV WSTKOSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE 
015276 013737 015256 015260 MOV STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
015304 012737 015334 000060 MOV WSTKSRV,QMTKVEC SS INITIALIZE THE KEYBOARD VECTOR 
015312 012737 000200 000062 MOV #200 ,a#TKVEC+2 3;"'BR' LEVEL 4 


SAO Wr eeet ie DU POR TST 2 


CZRM 

TTY INPUT ROUTI 
015320 
015324 
015332 


NNO O AUS EW 
monn ONMOLOf 


76 


DODOCOS DJOOCOCSCOOCOCCOCOOCCOCOCOOCOCCOOOCOoOOoOO COCOCOOoOOoOO 
a ee et ee ee ae ee eed aed od wd a 


005777 
012777 
000207 


117746 


001500 


022737 


163606 
177600 
000007 


000176 


000001 
001202 


000023 
163530 
163522 
163516 
177600 
000021 
000100 


015254 
000140 


000175 
000040 


015256 
015262 


000176 
163402 
163376 


. 
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163612 


TST 
MOV 
RTS 


astKB 
#100,a$TKS 
PC 


:*TK SERVICE ROUTINE 


:*THIS ROUTINE WILL SERVICE TH 
;*BY READING THE CHARACTER FROM 


:*]1T IN THE QUEUE. 
$TKSRV: MOVB 


1$: 
001140 


2$: 
015254 


3$: 


31$: 


163474 


32$: 


4$: 
015263 


015256 
5$: 


FERRARA AAA E AAA RAEKEK AREAS 


asTKB, -( 
#°C177, ( 


MSWREG, SWR 
6$ 


#1, STKCNT 
3$ 


i 0, (SP) 
(SP)+,a$TKQIN 
STKQIN 
rene s 
#STKQSRT,STKQIN 


;;CLEAR DONE FLAG 
;;ENABLE TTY KEYBOARD INTERRUPT 
;;RETURN TO CALLER 


TTY KEYBOARD INTERRUPT 
THE INPUT BUFFER AND PUTTING 


;;PICKUP_THE — 
he THE J 
::1S ITA CONTROL G? 
+ ;BRAN CH_ IF NO 

S SOFT-SWR SELECTED? 
::G0 TO SWR CHANGE 


3318S THE QUEUE FULL? 
THE TTY BELL 
:iCLEAN CHARACTER OFF OF STACK 


its IT A CONTROLS? 
:sBRA NCH IF NO 


;DISABLE TTY KEYBOARD INTERRUPTS 


ZECLEAN CHAR OFF STACK 
7:WAIT FOR A CHAR 
;;LOOP_UN ‘-. aN THERE 
;;GET THE CHARACTER 


S IT A CONTROL-Q? 
‘ TBRANCH IF 


NO 
$i | ap TTY KEYBOARD INTERRUPTS 


; ;RETURN 
::COUNT THIS CHARACTER 
3:18 11 UPPER CASE? 


H IF YES 
SIT ;" SPECIAL CHAR? 
 IBRANCH IF YES 
;;MAKE IT UPPER CASE 
$5 AND PUT IT IN QUEUE 
;UPDATE THE POINTER 
7:60 OFF THE » 
;BRANCH IF 
i:RESET THE POINTER 


* #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 


>*ROUTINE IS ENTERED 


FROM THE TRAP HANDLER. AND 


WILL 
>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


**CALL WHEN OPERATING IN TTY INTERRUPI 
$CKSWR: CMP 


001140 


BNE 
TSTB 
BPL 
MOVE 


#SWREG, SW 
158 

asiKs 

15$ 
a$1KB,-(SP) 


MODE. 
a 4 SWR SELECTED 
iIS A ‘a? WAITING? 

EXIT 


SEQ 0060 


CZR 
TTY 


INPUT ROUTINE 


15656 021627 


COooooCcoooooooo°ocoe°o°oo 
ee et ae ee ee ed ed ed ed 
HOM AAMAMNAMAMNAMMAA A AUT 
SRAS SSPE SANT TSSS 


021627 


MSAO RMOS/3/2 DU POR TST 2 


177600 
000007 


001134 


000025 


016363 
000006 


000015 

000004 

000002 
06 


07 
001135 
000100 


014460 
000060 


000067 


000060 
000002 


5 
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000001 


001135 


163220 


000001 
163176 


SRA AREA ETE ERARAHR eee e 


: #CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY reer -ws SERVICE 


BIC 
CMP 
BNE 


#°C177, (SP) 
(SP) ,#? 


IT 
AC 


7-BIT ASCII 
ONTROL=G? 
io IT IN THE TTY QUEUE 


s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A 


6$: 


T 
$GTSWR: 


19$: 
7$: 


9$: 


208: 


10$: 


(SP)+ 
PC, oo 


TKS 
#1,$INTAG 
-SCNTLG 
, SMSWR 
SWREG,-(SP) 
, SMNEW 
-(SP) 


-(SP) 
asTKs 
7$ 


@ 
pat 


a$TKB,-(SP) 
#°C177, (SP) 


(SP) ,#25 
10$ 
"oe 


#100,a$TKS 


PC ,STYPEC 
(SP) ,#60 


18% 

(SP) ,#67 
18$ 

#60, (SP)+ 
2(SP) 


RESU 
Seales I aay B joe 6 * THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


:3ARE WE RUNNING IN AUTO=MODE? 


; ;BRANCH IF 


YES 


::CLEAR CONTROL=G OFF STACK 


3;FLUSH THE 


UEUE 
DISABLE TTY KEYBOARD INTERRUPTS 


TTY INPUT Q 


:3SET INTERRUPT MODE INDICATOR 


:;ECHO THE CONTROL=G (“G) 
2: TYPE CURRENT CONTENTS 
3;SAVE SWREG FOR TYPEOUT 


0 TYPE=-OCTAL ala DIGITS) 


:;PROMPT FOR NEW SW 
+s CLEAR COUNTER 


::1F NOT TRY AGAIN 


::PICK UP CHAR 
3:MAKE IT 7-BIT ASCII 


7:18 IT A CONTROL=-U? 
+ ;BRANCH IF NOT 


YES, ECHO 


CONTROL=-U (“U) 


i 1GNORE PREVIOUS INPUT 


LET'S TRY 


IT AGAIN 


3:18 1T A <CR>? 


; BRANCH IF 


NO 
23 YES, a. ny FIRST CHAR? 


+3 CLEAR UP STACK 
;ECHO <CR> AND <LF> 


iiRE- ENABLE 


TTY KBD INTERRUPTS? 


; BRANCH IF NOT 


3 RE-ENABLE 
3 RETURN 

3:ECHO CHAR 
37 CHAR < 0? 
3;BRANCH IF 
3; CHAR > 7? 
3;;BRANCH IF 
sss TAitn ore 


+ BRANCH 


TTY KBD INTERRUPTS 


YES 


YES 
ASCI] 


THIS THE FIRST CHAR 
IF YES 


SEQ 0061 


& 5 
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TTY INPUT ROUTINE SEQ 0062 


016002 006316 ASL (SP) 330, SHIFT PRESENT 
016004 006316 ASL (SP) ti ‘CHAR OVER TO MAKE 
016006 006316 ASL (SP) +: ROOM FOR NEW ONE. 
016010 005266 000002 17$: INC 2(SP)  SKEEP COUNT OF CHAR 
016014 056616 177776 BIS =2(SP), (SP) S:SET IN NEW CHAR 
016020 900/07 BR 7$ [:GET THE NEXT ONE 
016022 104401 001206 18$: TYPE SQUES t: TYPE 2<CR><LF> 
016026 000720 BR 20$ ::SIMULATE CONTROL-U 
.DSABL LSB 
SERRE REET 
ZaTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
: LL: 
3% RDCHR 3;GET A CHARACTER FROM THE QUEUE 
:* RETURN HERE TICHARACTER IS ON THE STACK 
? szWITH PARITY BIT STRIPPED OFF 
016030 011646 SRDCHR: MOV (SP) ,-(SP) + ¢PUSH DOWN THE PC AND 
016032 016666 000004 000002 MOV 4(SP),2(SP) ‘THE PS 
016040 005066 000004 CLR 4(SP) i3GET READY FOR A CHARACTER 
016044 005046 CLR -(SP) ;PUT NEW PS ON STACK 
016046 012746 016054 MOV #64$,-(SP) += PUT NEW PC ON STACK 
016052 000002 RTI ::POP NEW PC AND PS 
016054 648: 
016054 005737 015254 1$: TST STKCNT ;z;WAIT ON A CHARACTER 
016060 001775 BEQ 1$ 
016062 005337 015254 DEC STKCNT :DECREMENT THE COUNTER 
016066 117766 177166 000004 MOVB aSTEQOUT, 4(SP) $1661 ONE CHARACTER 
016074 005237 015260 INC $TKQOUT DATE THE POINTER 
016100 023727 015260 015263 CMP $TKQOUT, #S$TKQEND *}2D1D IT GO OFF OF THE END? 
016106 001003 BNE 2$ ;:BRANCH IF NO 
016110 012737 015262 015260 MOV #STKQSRT, $TKQOUT i gRESET THE POINTER 
016116 000002 2s: RT] : : RETURN 


SERRATE 


*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


>*CALL: 

had RDLIN +2 INPUT A STRING FROM THE TTY 

:* RETURN HERE :;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
* 7; TERMINATOR WILL BE A BYTE OF ALL O'S 


016120 010346 $RDLIN: MOV R3,-(SP) 23 SAV VE R3 

016122 005046 CLR ~(SP) :CLEAR THE RUBOUT KEY 
016124 012703 016354 1$: MOV #STTYIN,R3 33661 ADDRESS 

016130 022703 016363 23: CMP #STTYING7,R3 ;BUFFER FULL? 

016134 101456 BLOS 4$ ::BR IF YES 

016136 104410 RDCHR ::G0 READ art CHARACTER FROM THE TTY 
016140 112613 MOVB (SP)+,(R3) 3:GET CHARACTER 

016142 122713 000177 10$: CMPB #177,(R3) 3218S 17 A RUBOUT 

016146 001022 BNE 5$ ::BR IF NO 

016150 005716 TST (SP) 3318 THIS THE FIRST RUBOUT? 
016152 001007 BNE 6$ :BR IF NO 

016154 112737 000134 016352 MOVB #'\ 9% ::TYPE A BACK SLASH 

016162 104401 016352 TYPE ’ 

016166 012716 177777 MOV #-1, (SP) i:SET THE RUBOUT KEY 

016172 005303 6$: DEC R3 ; BACKUP BY ONE 


5 
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TTY INPUT ROUTINE SEQ 0063 
016174 020327 016354 CMP R3,#STTYIN zs STACK EMPTY? 
016200 103434 BLO 4$ ‘BR IF YES 
016202 111337 016352 MOVB = (R3),,9$ :3 SETUP TO TYPEOUT THE DELETED CHAR. 
016206 104401 016352 TYPE 9$ TYPE 
016212 000746 BR b$ +:G60 READ ANOTHER CHAR. 
016214 005716 5$: TST (SP) ;;RUBOUT KEY SET? 
016216 001406 BEQ 7$ F NO 
016220 112737 000134 016352 MOVB = #"\, 9 ::TYPE A BACK SLASH 
016226 104401 016352 TYPE 9% 
016232 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
016234 122713 000025 7$: CMPB ss #25, (R3) ::IS CHARACTER A CTRL U? 
016240 001003 BNE 8$ ::BR IF NO 
016242 104401 016363 TYPE $CNTLU >: TYPE A CONTROL "'U"' 
016246 000726 BR +:G0 START OVER 
016250 122713 000022 8$: CMPB ss #22, (R3) t:1S CHARACTER A ‘'4R''? 
016254 001011 BNE 3$ +:BRANCH IF NO 
016256 105013 CLRB ss (R3) >: CLEAR THE | CHARACTER 
016260 104401 001207 TYPE  ,$CRLF S: TYPE A! 
016264 104401 016354 TYPE STTYIN +: TYPE THE INPUT TRIN NG 
016270 000717 BR $ ::G0 PICKUP ANOTHER CHACTER 
016272 104401 001206 4$: TYPE  ,$QUES [TYPE A 
016276 000712 BR is = CLEAR THE BUFFER AND LOOP 
016300 111337 016352 3$: MOVB = (R3),,9$ +:ECHO THE CHARACTER 
016304 104401 016352 TYPE ,9$ 
016310 122723 000015 CMPB so #15, (R3) + s:CHECK FOR RETURN 
016314 001305 BNE 2$ S:LOOP IF NOT RETURN 
016316 105063 177777 CLRB = = 1(R3) *:CLEAR RETURN (THE 15) 
016322 104401 001210 TYPE  ,$LF +: TYPE A LINE FEED 
016326 005726 TST (SP)+ SICLEAN RUBOUT KEY FROM THE STACK 
016330 012603 MOV (SP)+,R3 :RESTORE R3 
016332 011646 MOV (SP) ,-(SP) S:ADJUST THE STACK AND PUT ADDRESS OF THE 
016334 016666 000004 000002 MOV 4(SP),2(SP) ts FIRST ASCII CHARACTER ON IT 
016342 012766 016354 000004 MOV #STTYIN, 4(SP) 
016350 000002 RT] + RETURN 
016352 000 9$: .BYTE 0 i} STORAGE FOR ASCII CHAR. TO TYPE 
016353 000 “BYTE 0 :: TERMINA 
016354 STTYIN: .BLKB 7 + RESERVE. a BYTES FOR TTY INPUT 
016363 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> + CONTROL | 
016370 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> ‘CONTROL ''G"’ 
016375 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = /° 
016406 040 040 116 SHNEW: “ASCIZ / NEW = / 
EV 
1 ~SBTTL READ AN OCTAL NUMBER FROM THE TTY 


‘itt PPP PPP PPP R RRR ER ER RASS SESE EEE SEES EEC E ESE E CECE CSE SE OES 


SaTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY 

3*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 

2 *OCTAL ty LM If AN ILLEGAL CHARACTER IS READ A ‘'?"' WILL BE Eat 
>*FOLLOWED BY A CAPRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
Pind BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


Py LL 

:* RDOCT ::READ AN OCTAL NUMBER 

:* RETURN HERE :;LOW ORDER BITS ARE ON TOP OF THE STACK 
s* ?:HIGH ORDER BITS ARE IN S$HIOCT 


016420 011646 $RDOCT: MOV (SP) ,=(SP) :;PROVIDE SPACE FOR THE 


CZRMSAO RMOS/3/2 DU POR TST 2 


READ AN OCTAL NUMBER FROM THE TTY 


12 


= 
ze 


jeleleleoleleleleleleolelelealeoleololo] =) 
ek a ht 


Freee 


WUnrn———oco00~7 
FYSRSS Rue 


a ee ee ed ed ed ed od 


pee pa fe lofololeleolelolelololololololo) 


a 


016560 
016560 


016666 
010046 


oowof sf 


—o—9o-—-O000—-00 
SOeoen—NSo-oe 


NmNoONOoO—CO—-—Oo—— 


—MNm—t 


010046 


000004 000002 


016546 


000060 
000067 


001206 


Vv 
1$: RDLIN 


2$: MOVB 


3$: TST 


4$: TST 
5$: . WORD 


$SHIOCT: 


#'0, (SP) 
4$ 


(SP)+ 
R1,12(SP) 
R2,$HI0CT 


S 
(SP)+ 
(RO) 
0 

, SQUES 
1$ 

0 
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yf hy NUMBER 
USH RO ON STACK 
PUSH Ri ON STACK 
73PUSH R2 ON STACK 
::READ AN ASCIZ LINE 
+2GET rte gs OF 1ST CHARACTER 


ND SAVE 
::CLEAR DATA WORD 


ie ale THIS CHARACTER 
F ZERO GET OUT 

SE MAKE SURE THIS CHARACTER 

3:1S AN OCTAL DIGIT 


33*2 
2384 
33*8 


STRIP THE ASCII JUNK 
::ADD_IN THIS DIGIT 


; LOOP 
3:CLEAN TERMINATOR FROM STACK 
7:SAVE THE RESULT 


33;POP STACK INTO R2 

3:POP STACK INTO R1 

3:POP STACK INTO RO 

3 RETURN 

3:;CLEAN PARTIAL FROM STACK 
72:SET A TERMINATOR 

3; TYPE UP THRU THE BAD CHAR. 


: 5 oh oe CR" g “~—** 
i; TRY AGAIN 
;:HIGH ORDER BITS GO HERE 


. WORD 
.SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


SERRATE 


« #SAVE RO-R5 
s*CALL: 


SAVREG 
:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


: eTOP=-- (416) 
pe +2=-=(4+18) 
p® +4---R5 
r® 46---R4 
p*® +B---R3 
3*+10---R2 
p#t12---R1 
3#+14---R0 


SSAVREG: 
MOV 


RO,~(SP) 


3:PUSH RO ON STACK 


SEQ 0064 


oerae N 5 
' CZRMSAO RMO5/3/2 DU POR TST 2 MACRO V03.01 11-APR-80 14:40:19 PAGE 10-12 
SAVE AND RESTORE RO-RS ROUTINES 


16562 
64 


1 
1 
1 
1 
1 
1 
1 
1 
1 


016710 


010046 


000200 


011646 
016666 
000002 


016676 


000022 


000002 


016710 


000004 000002 


MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV R2,-(SP) ‘PUSH R2 ON STACK 
MOV R3,-(SP) +:PUSH R3 ON STACK 
MOV R4,=(SP) +:PUSH R& ON STACK 
MOV R5,-(SP) +:PUSH R5 ON STACK 
MOV 22(SP),-(SP) ::SAVE PS OF MAIN FLOW 
MOV 22(SP) ,-(SP) ::SAVE PC OF MAIN FLOW 
MOV 22(SP),=(SP) 7:SAVE PS OF CALL 
MOV 22(SP) , (SP) ::SAVE PC OF CALL 
RTI 

s*RESTORE RO-RS 

s*CALL: 

* fe RESREG 

$RESREG: 
MOV (SP)+,22(SP) s:RESTORE PC OF CALL 
MOV (SP)+,22(SP) ::RESTORE PS OF CALL 
MOV (SP)+,22(SP) + :RESTORE PC OF MAIN FLOW 
MOV (SP)+,22(SP) ::RESTORE PS OF MAIN FLOW 
MOV (SP)+,R5 ::POP STACK INTO R5 
MOV (SP)+,R4 ::POP STACK INTO R4& 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+,R2 ::POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP)+.RO +:POP STACK INTO RO 


R 
-SBTTL inAP DECODER 


EPPS EPEEERAAAAALALALAALALESE LEASE SESE ARERR SERA RRR RRR ARR RRA RRA D SS I 


**THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 


:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


3*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO0 TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) z SAVE RO 
MOV 2(SP),RO ;;GET TRAP ADDRESS 
TST -(RO) 7;BACKUP BY 2 
MOVB (RO) ,RO 3;GET RIGHT BYTE OF TRAP 
ASL 0 ;;POSITION FOR INDEXING 


R 
MOV STRPAD(RO),RO ;; INDEX TO TABLE 
RO 3:60 TO ROUTINE 


7: THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$TRAP2: MOV (SP),=(SP) ;:MOVE THE PC DOWN 
MOV 4(SP),2(SP) 7;MOVE THE PSW DOWN 
RT] ; RESTORE THE PSW 


-SBTTL TRAP TABLE 


*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE “'TRAP’’ INSTRUCTION. 


: ROUTINE 


$TRPAD: .WORD  $TRAP2 


SEQ 0065 


peers 089057572 DU POR TST 2 


016712 014310 
016714 014626 
016716 014602 
016720 014642 
016722 015030 
016724 015616 
016726 015526 
016730 016030 
016732 016120 
016734 016420 
016736 016560 
016740 016616 
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$STYPDS 
SGTSWR 
SCKSWR 


$SAVREG ;;CALL=SAVREG 
SRESREG ;;CALL=RESREG 


~\ . 
14:40:19 PAGE 18-13 


3; CALL=TYPE 

3: CALL=TYPOC 
3; CALL=TYPOS 
3; CALL=TYPON 
3; CALL=TYPDS 


3; CALL=GTSWR 


33; CALL=CKSWR 
3; CALL=ROCHR 
+3 CALL= ROLIN 

3; CALL=RDOCT 


TRAP+4 (104404) 
TRAP+5 (104405) 


TRAP+6 (104406) 


TRAP+7(104407) 
a eapet +10(104410) 


SEQ 0066 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE RO=-R5 ROUTINE 

RESTORE RO=R5 ROUTINE 
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TELETYPE MESSAGES SEQ 0067 


} -SBTTL TELETYPE MESSAGES 

3 016742 200 105 116 ENTERA: .ASCIZ <CRLF>/ENTER DRIVE —. / 

4 016771 040 111 116 ADRERR: .ASCIZ_ / INVALID ADDRESS/<CRL 

5 017013 200 120 117 PORTAIS: .ASCIZ <CRLF>/PORT A ADDRESS 18: / 

6 017040 200 120 117 PORTBIS: .ASCIZ <CRLF>/PORT B ADDRESS 1S: / 

7 017065 200 123 131 NOCLOCK: .ASCIZ <CRLF>/SYSTEM ~ ~~ L' OR 'P* CLOCK/<CRLF><LF> 

8 017132 012 105 116 TESTNO: .ASCIZ <LF>/ENTER TEST @ 

9 017152 040 111 116 BADNO: .ASCIZ / INVALID TEST NUMBER/ 

10 017200 200 012 122 ADDRIS: .ASCIZ <CRLF><LF>@RH/RM ADDRESS. CRMCS1) IS: @ 

11 017235 012 105 116 NTRH'1: .ASCIZ <LF>@ENTER RH/RM ADDRESS: @ 

12 017264 200 012 122 SWICHN: .ASCIZ <CRLF><LF>@RETURN ‘CONTROLLER SELECT’ SWITCH ON DRIVE TO 'A/B‘@ 
13 017352 200 012 124 SWICHA: .ASCIZ <CRLF><LF>/TURN ‘CONTROLLER SELECT’ SWITCH ON DRIVE TO ‘A'/ 

14 017434 200 012 124 SWICHB: .ASCIZ <CRLF><LF>/TURN ‘CONTROLLER SELECT’ SWITCH ON DRIVE TO ‘B*/ 

15 017516 200 124 110 CONTUE: .ASCIZ <CRLF>/THEN PRESS Me ity ON THE PROCESSOR/<CRLF> 

16 017567 200 012 123. CYCLED: .ASCIZ <CRLF><LF>/STOP THE DRIVE/ 

4 017610 200 O12 123. CYCLEU: .ASCIZ <CRLF><LF>/START THE DRIVE - THE PROGRAM WILL WAIT FOR MOL’ TO SET/ 
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TEST ERROR MESSAGES SEQ 0068 


} -SBTTL TEST ERROR MESSAGES 

3 017703 104 122 111 EMI: -ASCIZ /DRIVE 1S NON-EXISTENT ('NED' BIT SET)/ 

4 017751 127 122 117 EM2: «ASCI1Z /WRONG DRIVE TYPE/ 

5 017772 103 117 116 EMS: -ASCIZ yee te ay SWITCH ON DRIVE NOT IN ‘A/B‘@ 

6 020051 104 122 111 EM4: *ASCIZ /ORIVE NOT ON LINE/ 

7 020073 123 105 122 EMS: eASCIZ = /SERIAL NUMBER READ THROUGH EACH OSE A THE SAME / 

8 020155 124 111 115 EM6: -ASCIZ = /TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 

9 020227 124 111 115 EM?: sASCIZ /TIMEOUT ONE=SHOT IS LESS THAN 500 ns y 

10 020274 122 105 101 EM10: .ASCIZ /READ IN PRESET DOES NOT SET wet Dy ss FOR THE PORT/ 
11 020362 047 107 117 EM11: .ASCIZ /'GO* BIT RESET DURING UNLOAD COMM 

12 020427 111 116 103 EMI2 *ASCIZ /INCORRECT STATUS DURING UNLOAD COMMAND / 

13 020476 104 122 111 EM13 -ASCIZ = /DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/ 
14 020563 101 124 124 EM14 -ASCIZ /ATTENTION BIT SET ON ‘OPPOSITE PORT’ AFTER UNLOAD/ 

15 020645 101 124 124 EM15:  .ASCIZ /ATTENTION BIT NOT SET ON PORT WHICH ISSUED ‘UNLOAD'/ 

16 020731 104 122 111 EM16: ASCII /DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH ‘CONTROLLER/<CR><LF> 
17 021015 123 105 114 *ASCIZ @SELECT’ SWITCH MOVED FROM 'A/B @ 

18 021055 104 122 111 EM17: ~=.ASCIZ /DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED UP/ 

19 021140 104 122 111 EM20: ASCIZ /DRIVE LOCKED ON PORT 'B' BY SWITCH wares ee UP/ 
20 021223 123 124 101 EM21: .ASCIZ /STATUS INCORRECT FOR PORT AFTER CYCLE U 
21 021274 122 105 107 EM22: ASCIZ /REGISTER CONTENTS SEEN WHEN DRIVE SuITCHED ON "OPPOSITE* PORT/ 
22 021372 047 116 105 EM23: ASCIZ /*NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/ 
23 021465 104 122 111 EM24: ASCIZ /DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 
24 021545 122 110 057 EM25: ASCIZ @RH/RM DIDN'T RESPOND TO ADDRESSING@ 
25 021610 104 122 111 EM30: ASCIZ /DRIVE NOT SEIZED BY PORT/ 
26 021641 127 122 117 EM31: ASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 
27 021707 122 105 107 EM32: ASCIZ /REGISTER CONTENTS WRONG/ 
28 021737 103 117 116 EM33: ASCIZ /CONTROL BUS PARITY ERROR READING gt rl REGISTER/ 
29 022023 103 101 116 EM34: ASCIZ /CAN'T ACCESS DRIVE THROUGH EITHER 

30 022072 104 122 111 EM35: ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE” ° OPREQUEST NOT SET/ 
31 022157 104 122 111 EM36: ASCIZ /DRIVE NOT IN NEUTRAL AFTER TIMEOUT = REQUEST NOT SET/ 
32 022244 122 105 107 —M37: ASCIZ /REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 

33 022325 104 122 111 EM40: .ASCIZ /ORIVE IN NEUTRAL AFTER RELEASE = REQUEST SET/ 

$ 022402 122 105 107 EM41: .ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
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-—-OoO—-OoO—- OO +O | OS | O | OO eS ss es 
MEME MLME MES RHMWHLMMLMWL Ppororor 
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001236 
001236 


a ee ey eB Bs a PB PP Pi 


/TEST # ERR 
/TEST # ERR 
/TEST # ERR 
/TEST # ERR 
—— # ERR 
/TEST # ERR 
/TEST # ERR 
— # ERR 
/TEST # ERR 
/$RMADR/ 


/TEST # ERR 
TEST # ERR 
TEST # ERR 
/rest # ERR 
/TEST # ERR 


PORT # 
PORT # 
REG ADR 
PORT 


a/ 
PORT # 


oT 
PORT 


PORT # 


REG ADR CONTENTS/ 
REG ADR GOOD BAD/ 
PORT A PORT B/ 


hey: (IN MS)/ 


ERROR/<CRLF > 


PORT # REG ADR CONTENTS/ 


SWITCHED TO/<CRLF> 
PORT #/ 


cot a ata” 

PORT # REG ADR GOOD 
PORT B/<CRLF> 
RMDS/ 


ERROR/<CRLF > 

PORT #/ 

ERROR/<CRLF > 

PORT # REG ADR GOOD 
—e 


TSTNUM, SERRPC ,PTNBR,SBDADR, $BDDAT ,0 
TSTNUM, SERRPC,PTNBR,$BDADR,S$GDDAT ,SBDDAT ,0 
TSTNUM, SERRPC, SBDADR , SGDDAT , SBDDAT ,0 
TSTNUM, SERRPC,PTNBR, 
TSTNUM, SERRPC, 4h, F TIME ,0 
TSTNUM, SERRPC,SEIZPT 
TSTNUM, eres hs ,SEIZPT ,PTNBR, SBDADR, SBDDAT ,0 


TSTNUM, SE 
$R 


TSTNUM,SERRPC,SEIZPT, ime -SGDDAT ,$BDDAT ,0 


TSTNUM,SERRPC,STMP2,$ 
TSTNUM, SERRPC, SEIZPT,PTNBR,O 
TSTNUM,SERRPC,SEIZPT,OPPRT,0 


So 
. 
=" 


>. oF . . a . 7 
oOo COCOCO°O 
. >. 7 >. . 


oOoooCco°c;eoo 


>. 
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C. 
SRAADR’ »SERRPC,SEIZPT,PTNBR,O 


BAD / 


BAD/ 


SEQ 0069 
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CONSTANTS, TABLES, ETC SEQ 0070 


1 -SBTTL CONSTANTS, TABLES, ETC 
¢ ; TABLE OF TEST STARTING ADDRESSES 
4 024324 003132 TSTADR: .WORD TST1 sSTARTING ADDRESS OF TEST 1 
7 024326 004476 «WORD TST2 sSTARTING ADDRESS OF TEST 2 
024330 005260 WORD = TST3 ;STARTING ADDRESS OF TEST 3 
024332 006042 WORD TST4 :STARTING ADDRESS OF TEST 4 
024334 006760 WORD 1TST5 :STARTING ADDRESS OF TEST 5 
24336 007676 WORD TST6 STARTING ADDRESS OF TEST 6 
024340 010744 WORD TST? s;STARTING ADDRESS OF TEST 7 
8 024342 012060 WORD 1ST10 STARTING ADDRESS OF TEST 10 
» sATTENTION BIT TABLE 
11 024344 001 ATABIT: .BYTE 1 sATTENTION BIT FOR DRIVE 0 
12 024345 002 -BYTE 2 sATTENTION BIT FOR DRIVE 1 
13 024346 004 -BYTE 4 sATTENTION BIT FOR DRIVE 2 
14 024347 010 -BYTE 10 sATTENTION BIT FOR DRIVE 3 
15 0242350 020 -~BYTE 20 :ATTENTION BIT FOR DRIVE 4 
16 024351 040 -~BYTE 40 sATTENTION BIT FOR DRIVE 5 
17 024352 100 -BYTE 100 sATTENTION BIT FOR DRIVE 6 
+ 024353 200 , sBYTE 200 sATTENTION BIT FOR DRIVE 7 
$¢ 024354 000011 MAXTN: .WORD 11 ;MAXIMUM TEST NUMBER 
24 000200 - END 200 
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SYMBOL TA SEQ 0071 
ADDRIS 017200 CR = 000015 D117 024146 F3 = 000020 PR6 = 000300 
ADRERR 016771 CRLF_ = 000200 DT2 024044 F4 = 000040 PR7 == 000340 
AOE = 001000 CYCLED 017567 D124 024154 GO = 000001 PS = 177776 
ASR1 001232 CYCLEU 017610 D125 024166 GRV = 000010 PSEL = 002000 
A _= 100000 = 100000 D730 024172 GTSWR = 104406 PSW == 177776 
ATABIT 024344 DDISP = 177570 D134 024212 HCE = 000200 PTNBR 001234 
ATO = =_: 000001 = 000040 D135 024224 HC] = 002000 PWRVEC= 000024 
ATl == 000002 DFF20 = 000002 D140 024236 HCRC = 000400 RDCHR = 104410 
AT2 = 000004 1 024250 DT5 024062 HT = 000011 RDLIN = 104411 
ATS = =: 000010 DFI4 024277 DT6 024076 IAE = 002000 RDOCT = 104412 
ATS == 000020 DFI7 024305 DT7 024106 IE = 000100 RDY = 000200 
ATS == 000040 DF2 024255 DVA = 004000 ILF == 000001 RELERR 001250 
AT6 = = 000100 DF 25 024307 DvC = 000200 ILR = 000002 RELOK = 000001 
AT? = =: 000200 DF 30 024310 ECH = 000100 10TVEC= 000020 RESREG= 104414 
Al6 = =: 000400 DF 34 024317 C1 = 004000 = 000100 RESVEC= 000010 
Al? —_ = 001000 DF5 024263 EMTVEC= 000030 vC = 010000 MAS = 000016 
BADNO 3 017152 DF6 024270 EM] 017703 KYBCTL 001266 RMBA = 000004 
BADTMO 001706 DF? 024273 EM10 020274 LBC §3=— =_: 002000 RMCS1 = 000000 
BAl = 000010 DH1 022460 EM11 020362 LBT = 002000 RMCS2 = 000010 
BITO = 000001 DH13 022750 EM12 020427 LF = 000012 RMDA = 000006 
B1T00 = 000001 DH14 023025 EM13 020476 LSC_ = =_: 004000 RMDB = 000022 
1101 = 000002 DH17 023144 EM14 020563 MAXTN 024354 RMDC = 000034 
1102 = 000004 DH2 022531 EM15 020645 MCPE = 020000 RMDS = 000012 
1103 = 000010 DH24 023163 EM16 020731 MDPE = 000400 RMDT = 000026 
1104 = 000020 DH25 023266 EM17 021055 MOH = 020000 RMEC1 = 000044 
1105 = 000040 DH30 023275 EM2 017751 MOL = 010000 RMEC2 = 000046 
1106 = 000100 DH34 023417 EM20 021140 MxF = 001000 RMER1 = 000014 
1107 = 000200 DH35 023513 EM21 021223 NBA = 100000 RMER2 = 000042 
1108 = 000400 DH37 023610 EM22 021274 NED = 010000 RMLA = 000020 
1109 = 001000 DH40 023732 EM23 021372 NEM = 004000 RMMR1 = 000024 
1T1_ = 000002 DHS 022605 EM24 021465 NOATA = 000000 RMMR2 = 000040 
1110 = 002000 DH6 022654 EM25 021545 NOCLOC 017065 RMOF = 000032 
1711 = 004000 DH7 022703 EM3 017772 NOSEIZ 001246 RMR = 000004 
1712 = 010000 = 000004 EM30 021610 NTRH11 017235 RMSN = 000030 
1113 = 020000 DISPLA 001142 EM31 021641 OFD = 000200 RMWC == 000002 
1714 = 040000 DISPRE 000174 EM32 021707 OPE = 020000 R6 =%000006 
1715 = 100000 DLT = 100000 EM33 021737 OPI = 020000 R7 =%000007 
1172 = 000004 DL64 = 000020 EM34 022023 OPPRT 001240 SAVREG= 104413 
113 = 000010 DMD = 000001 EM35 022072 OR = 000200 = 100000 
1T4 = 000020 DPE = 000010 EM36 022157 PAR = 000010 SCOPE = 000004 
115 = 40 DPR = 000400 EM37 022244 PAT = 000020 = 000100 
116 = 000100 DRQ == 004000 EM4 020051 PGE = 002000 $C1 = 000200 
11? = 000200 DRY = 000200 EM40 022325 PGM = 001000 SC2. = 000400 
BIT8 = 000400 DSWR = 177570 EM41 022402 PIP = 020000 $¢3. = 001000 
| B1T9 = 001000 DTE = 010000 EMS 020073 PIRQ = 177772 = 002000 
BPTVEC= 000014 D100 = 000001 EM6 020155 PIRQVE= 000240 SEIZPT 001236 
CHANGE 003010 D101 = 000002 M 020227 PORTA 001224 = 100000 
CHGADR 001270 D102 = 000004 ENTERA 016742 PORTA] 017013 STACK = 001100 
CKCLK 013406 D103 = 000010 R = 040000 ORT 001226 START 001766 
CKCLK1 013456 D104 = 000020 = 104000 PORTBI 017040 START1 001774 
CKCLK2 013520 D105 = 000040 ERRVEC= 000004 PORTC 001230 START2 002002 
CKCLK3 013530 D106 = 000100 x 002636 PR = 000000 STKLMT= 177774 
CKERR 001244 D107 = 000200 FER = 000020 PRI = 000040 SWR 001140 
CKSWR = 104407 D108 = 000400 FMT16 = 010000 PRe = 000100 SWREG 000176 
CLOCK 013540 DT1 024030 FO = 000002 PR3 = = 000140 SWICHA 017352 
CLR = 006040 D113 024120 FI = 000004 PR4 = 000200 SWICHB 017434 
CONTUE 017516 DT14 024130 F2 = 000010 PRS == 000240 SWICHN 017264 
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